Select Code to Download

#!/usr/bin/perl

use strict;
...
} else {
        main();
}

>perl alarmtest.pl
Helper will die in 5 seconds
helper: start of second 1
...
Alarm clock

>

sub helper
{
...
                print "helper: end of second $_\n";
        }
}

>perl alarmtest.pl
Helper will die in 5 seconds
helper: start of second 1
...
helper: end of second 10

>