Select Code to Download

use IO::Handle;
use IO::File;
...
STDOUT->fdopen($out, 'w')
    or die $!;
print "hello, world!";

use IO::Handle;
use IO::Scalar;
...
STDOUT->fdopen($out, 'w')
    or die $!;
print "hello, world!";