Programming

#!/usr/bin/perl


sub copy
{
# <-- in theory it should work if you replace this comment with the two lines from below
my($bit,$file,$data) = @_;

 $string =`cat test.txt | grep  archive`;
 open  IO,">> $file" or die "Cannot open $file for output: $!\n";
 print IO  ref $data eq 'ARRAY' ? @$data : ref $data eq "SCALAR"? $$data : ' ';
 close IO;

}



     $name = "jen";
     $filename = join "", "../History/", $name, "test.log";
     copy('write',$filename,\ $string);