#!/usr/bin/perl
use warnings;
use strict;

alarm(5);
eval {
    $SIG{ALRM} = sub { die "timeout" };
    print "Name eingeben: ";
    my $input = <STDIN>;
    alarm(0);
};
alarm(0);
die "Die Zeit ist abgelaufen...\n" if $@ =~ m/timeout/;
die "Error: $@\n" if $@;