say $text; ##

##

print $OUT_FILE $text;

##

##

say $OUT_FILE $text;

##

##

$OUT_FILE = \*STDOUT;

##

##

$OUT_FILE = select;