Select Code to Download

eval{
  $SIG{ALRM} = sub {die "DING-DING"};
...
  print "I am frustrated.";
  alarm(0);
};

sub long_running_function {
  ...
...
...
&long_running_function();
...