Select Code to Download

say $text;

print $OUT_FILE $text;

say $OUT_FILE $text;

$OUT_FILE = \*STDOUT;

$OUT_FILE = select;