Select Code to Download

open(OUTPUT,">&STDOUT") or die "couldn't dup stdout: $!";

#!/usr/bin/perl

...
{
  print $i,"\n";
}