alarm 3600;
sub test {
 print "Da bin ich und werde erst nach 1 Stunde gewürgt\n";
}
1;