#!/usr/bin/perl

use strict;
use warnings;

$SIG{'HUP'} = \&hangup;
$SIG{'INT'} = \&interrupt;
$SIG{'KILL'} = \&kill;

#create necessary vars.

while (1){
   #do main processing here
}

sub hangup {
   my $sig = shift;
   print "Got SIG$sig exiting";
   exit 0;
}

sub interrupt {
   #do stuff here
}

sub kill {
  print "HaHa, can't kill me!\n";
}