#!/usr/bin/perl
use strict;
my $interval = 60; # seconds between calls
                                                                                
# sub will be called every $interval seconds
my $process = sub {
   print "processing!\n"
};
                                                                                
# engage the alarm system
$SIG{ALRM} = sub { 
   &$process; 
   alarm $interval; 
};                                                                                
alarm $interval;
                                                                                
# function will be called every 60 seconds for rest of program...