Select Code to Download

open my $fh, "filename" or die $!;
while (my $line = <$fh>) {
...
      # process $line here
   }
}