#!/usr/bin/perl -w
eval{
  $SIG{ALRM} = sub {die "DING-DING"};
  alarm(10);
  print "I am frustrated.";
  alarm(0);
};
if($@){
  if ($@ eq "DING-DING"){
    print "Yaaaaa!";
}else{
  print "Uh oh, not an alarm error; here goes...\n $@ ";
}}else{
  print "No error was generated";
}

##</code><code>##

Uh oh, not an alarm error; here goes...
 The Unsupported function alarm function is unimplemented at 
C:\p.pl line 4.