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

my $select = IO::Select->new;
$select->add( \*STDIN );

STDIN->blocking(0);
STDOUT->autoflush(1);

print "Bitte etwas eingeben: ";
if ( my @ready = $select->can_read(10) ) {
    for my $fh ( @ready ) {
        while ( my $line = <$fh> ) {
            chomp $line;
            print "Empfangen: $line\n";
        }
    }
}
else {
    print "Timeout\n";
}