#!/s/std/bin/perl 

BEGIN {
    unshift(@INC, "/p/condor/home/perl");
}

require 5.002;
use Archive::Tar;

my $tar;
$tar = Archive::Tar->new();

$src = 'crap.tar';
$target = 'gunk.tar';

print "\nReading $src\n";
$tar->read($src, 0);
print "\nListing all the files in the archive\n";
print join "\n", $tar->list_files(), "";
print "Done listing all the files\n\n";
print "Writing $target ... ";
$tar->write($target, 0);
print "done.\n";
