Help for this page

Select Code to Download


  1. or download this
    $SIG{HUP} = sub { exec($0, @ARGV); };
    
  2. or download this
    #!/usr/local/bin/perl
    use strict;
    ...
      if ($hup > 0) { exec($0, @ARGV) || warn "$!"; }
    }