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