$SIG{HUP} = \&catch;
my $caught = 0;
my $count = 0;

print "I am $$, HUP me\n";

for (0..10)
{
   sleep (5); # pretending to do stuff
   print "$_\n";
}

die "I was HUPed $caught times" if $caught;

### Subroutines below
sub catch
{
   $caught++;
}