#!/usr/bin/perl

use strict;
use warnings;

$SIG{ALRM} = sub {
   print "Alarming!\n";
};

kill 'ALRM', $$;

print "Not alarming\n";