in reply to Catching Signals in Perl

Try something like this
$SIG{HUP} = \&hup_handler; sub hup_handler{ ##Do what you want here }