my $name=undef;

print "Name?: ";

eval {
       local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
       alarm 5;
       $name = <STDIN>;
		chop($name);
       alarm 0;
       };
if ($@) {
     die unless $@ eq "alarm\n";   # propagate unexpected errors
     print "\ndu hast nichts eingegeben!\n";
     }
else {
    print "\n Danke fuer den Namen: ".$name."\n";
     }