Select Code to Download

for (1..6){
  $line = <$input_file>;
  print $output_file $line;
}

my $M = 5;  # constant multiplier
my $T = 0.1 # negative number threshold
...
  |ge;
  print $output_file;
}