Search Results

#!/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`;
...

Probably you need to open the output file for append mode, but you opened it for write mode.

Try
open IO,">> $file" or die "Cannot open $file for output: $!\n";