eval {
    local $SIG{ALRM} = sub { die "mauahaha\n" };
    
    alarm(5);
    print "Namen in 5 Sekunden eingeben: ";
    chomp( my $name = <STDIN> );
    alarm(0);
};
if ( $@ ) {
    # timeout
    print "\nBoooom! Sie haben länger als 5 Sekunden gebraucht!\n";
}