#!/usr/bin/perl
#
use strict;
use warnings;
use Data::Dumper;

$SIG{ALRM} = sub {
    print "printing from within sub routine\n";
    alarm(1);
};

alarm(1);

while(1) {
    print "main loop proceeding\n";
    sleep(1);
}