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

use Log::Log4perl qw(:easy);
use Getopt::Std;
use Sysadm::Install qw(untar);

getopts('v', \my %opts);

Log::Log4perl->easy_init(
    $opts{v} ? $DEBUG : $ERROR);

for my $tar (@ARGV) {
   untar($tar);
}