Select Code to Download

for ( 1 .. $i ) {
   my $line = `head -$_ $filename | tail -1`;
   print $line;
}

my $line;
my $ln = 0;
...
} close FILE;
$_ = $tmp;
}