Help for this page

Select Code to Download

Select or download this

    #!/usr/bin/perl
    open(my $oldout, ">&STDOUT")     or die "Can't dup STDOUT: $!";
...

    print STDOUT "stdout 2\n";
    print STDERR "stderr 2\n";