Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
$log_file = "logfile";
...
open(STDOUT,'>-');
print "done\n";
close(STDOUT);
  2. or download this
    #!/usr/bin/perl -w
$log_file = "logfile";
...
open(STDOUT,">&OLDOUT");
print "done\n";
close(OLDOUT);
  3. or download this
    Testing 1.2.3... gets put into logfile and STDOUT
done             gets put on STDOUT only