$SIG {ALRM} = sub {exit};
alarm (5);

while(1){
    print "hairy fishnuts\n";
}