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

alarm(10);
my $input;
eval {
    local $SIG{ALRM} = sub { die "alarm\n" };
    print "Bitte etwas eingeben: ";
    $input = <STDIN>;
    alarm(0);
};
chomp $input;

if ($@) {
    print "Timeout beim Einlesen\n" if $@ =~ m/^alarm/;
    exit 1;
}
else {
    print qq(User hat "$input" eingegeben.\n);
}