Select Code to Download

for ( @data ) {
   sysopen ($fh, "$log", O_WRONLY|O_APPEND);
   $fh->print ("$_");
   close $fh;
}

#!/usr/bin/perl

...
   my $line = `head -$_ $filename | tail -1`;
   print $line;
}