eval{
  $SIG{ALRM} = sub {die "DING-DING"};
  alarm(10);
  sleep(20); # <-- This line is missing
  print "I am frustrated.";
  alarm(0);
};