Select Code to Download

use strict;
print "1: to STDOUT.\n";
...
print TOOUTPUT "6: To TOOUTPUT.\n";
print "----\n".$output."-----\n";
print "Now we're done.\n";

1: to STDOUT.
2: to STDOUT.
...
6: To TOOUTPUT.
-----
Now we're done.