#! /usr/bin/perl -w

use strict;
use IO::Select;

my $sel = new IO::Select( "STDIN");

if(!$sel->can_read( 3 )) {
    die "STDIN ist leer\n";
}

print "Hier geht das Programm weiter..\n";