#!/s/std/bin/perl

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

$src = $ARGV[0];
$dest = $ARGV[1];

#`cp $src $dest`;
use Archive::Tar;

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

#print "\n\nBEFORE:\n";
#print join "\n", $tar->list_files(), "";
$tar->change_owner(0,0);
$tar->write($dest);
#print "\n\nAFTER:\n";
#print join "\n", $tar->list_files(), "";

