#!/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");