Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    open STDOUT, ">&", $saved_stdout or die "open: $!";
}
print "output of foo(): $output";

Select or download this

fileno(STDOUT): 1
output of foo(): something being sent to stdout