Select Code to Download

# turn on autoflush for STDIN and STDOUT
select STDIN;
$|=1;
select STDOUT;
$|=1;
select STDERR;

sub logger {
  # set up a file handle for a log file.
...
  print LOG "weldd $$: ", scalar(localtime), " @_\n";
  close LOG;
}