use strict;
use warnings;
print STDERR "Geben sie ein Passwort ein: ";
my $pwd = 
eval {
    local $SIG{ALRM} = sub { die "pwd-timeout\ n"};
    alarm(5);
    return <STDIN>;
};
alarm(0);
print STDERR "Zeit abgelaufen" if $@ =~ /pwd-timeout/;