#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;

STDIN->blocking(0);

print "Bitte etwas eingeben: ";
my $input;
for( 0 .. 100 ) {
    $input = <STDIN>;
    select undef, undef, undef, 0.1;
    last if $input;
}

if ( $input ) {
    chomp $input;
    print qq(User hat $input eingegeben\n);
}
else {
    print qq(Timeout\n);
}