my $running = 1;
$SIG{HUP} = sub { $running =0 }
while ($running){
  do_stuff();
}