Select Code to Download

open FILE, '<', 'test.file' or die;
while(<FILE>){
...
  print "line=[$_]\n";
}
close FILE;