$SIG{HUP} = \&hup_handler; sub hup_handler{ ##Do what you want here } [download]
In reply to Re: Catching Signals in Perl by tcf22 in thread Catching Signals in Perl by Anonymous Monk