...

$SIG{HUP} = sub {
    print "You cannot HUP me !";
};

$SIG{ILL} = sub {
    print "You cannot ILL me !";
};

$SIG{INT} = sub {
    print "You cannot INT me !";
};

...

while (1) {
  print "\nyes";
  sleep (1);
}