my $STDOUT = IO::Handle->new;
my $STDERR = IO::Handle->new;
open($STDOUT, ">&STDOUT") ||
    croak( 'Cannot duplicate STDOUT to file handle - ', $! );
open($STDERR, ">&STDERR") ||
    croak( 'Cannot duplicate STDERR to file handle - ', $! );

$STDOUT->autoflush;
$STDERR->autoflush;