Help for this page

Select Code to Download

Select or download this

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