#!/usr/bin/perl

$SIG{HUP}  = sub {
  print "got hup\n";
};

while (1)
{
  print "sleeping\n";
  sleep(1);
}