#!/bin/env perl
use strict;
use warnings;
use sigtrap 'handler' => \&my_handler, 'normal-signals';

while ( 1 )
{
    print "running...\n";
    sleep 30;
}

sub my_handler
{
    die "Caught signal $!\n";
}