#!/usr/bin/perl
###########################################
# xx -- 
# Mike Schilli, 2004 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

use Sysadm::Install qw(untar_in);

untar_in("t.tgz", "tmp");