Help for this page

Select Code to Download

Select or download this

use IO::Handle;  # up top

...
    open STDOUT, '>&', $WRITE or die "failed redirect to STDOUT: $!";
    STDOUT->autoflush(1);
...

Select or download this

use English qw(-no_match_vars);

...
    open STDOUT, '>&', $WRITE or die "failed redirect to STDOUT: $!";
    $OUTPUT_AUTOFLUSH = 1;
...