print 'Eingabe: ', eval
{
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm(1);
  my $buffer = '';
  while (1) 
  {
    my $tmp = '';
    sysread(STDIN, $tmp, 1024);
    $buffer .= $tmp;
  }
  alarm(0);
  return $buffer;
};