Select Code to Download

$SIG{HUP}  = sub {
  if (defined $log)
...
  $log->print("pid = $$\n");
  $log->autoflush(1);
};

#!/usr/bin/perl

...
  print "sleeping\n";
  sleep(1);
}