#!/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);
}

##</code><code>##

main loop proceeding
printing from within sub routine
main loop proceeding
printing from within sub routine
main loop proceeding
printing from within sub routine
main loop proceeding
printing from within sub routine
main loop proceeding
printing from within sub routine
main loop proceeding