Select Code to Download

Select or download this

    chomp($input = <STDIN>);
...
    chomp($output = <STDIN>);
...
open (INPUT, "$input") || die "died opening input\n";#opening up ngc18
+8cata and putting it into INPUT#

open (STDOUT, ">$output") || die "died opening output\n"; #opening up 
+ngc188cat2 and setting output of out#

Select or download this

  open(INPUT, "<", $input) or die ...
  open(OUTPUT, ">", $output) or die ...
or
  open(INPUT, "< $input") or die ...
  open(OUTPUT, "> $output") or die ...