use Archive::Tar;
my $dir = 'copy';
my @files = <$dir/*>;
my $count = @files;

print $count;

foreach $file (@files) 
{
print $file;

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

}