#!/usr/bin/perl

$SIG{'ALRM'} = 'hallo_alarm';

alarm(5);
print "Los gehts!\n";

foreach (my $i=0;$i < 99999999; $i++) {
 $i--;
 ++$i;
 $i--;
}

print "Und raus\n";
exit(0);

sub hallo_alarm
{
 print "Hallo\n";
 exit(1);
}