#!/usr/bin/perl
  
use strict;

$SIG{ALRM} = sub {
  print "do something else\n";
  alarm 3;
};

alarm 3;

while (1) {
  sleep 1;
  print "do some work\n";
}