perl -wle 'my $x; read(STDIN, $x, 1000); print "hallo"'