#!/usr/bin/perl
use strict;
use warnings;

$SIG{'RTMIN'} = \&on_sig;

print $$, "\n";
while (1) {
    sleep 1;
    print ".\n";
}

sub on_sig {
    my $sig = shift;
    print "somebody told me $sig";
}