#!/s/std/bin/perl

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

$src = "origin.tar";
$dest = "files.tar";
use Archive::Tar;

$tar = Archive::Tar->new();
$tar->read($src,1);
$tar->write($dest);

