in reply to Catching Signals in Perl
$SIG{HUP} = \&hup_handler; sub hup_handler{ ##Do what you want here } [download]