use IO::Handle;
use IO::File;

my $out = IO::File->new('output.txt', 'w') or die $!;
STDOUT->fdopen($out, 'w')
    or die $!;
print "hello, world!";