#!/s/std/bin/perl 

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

require 5.002;
use Archive::Tar;
use File::Find;

$target = 'gag.tar';
my @f;
   
find (sub { push @f,$File::Find::name;
	print $File::Find::name,"\n"}, "prog3");

Archive::Tar->create_archive($target, 0, @f);


