Help for this page
sysread(STDIN,$data,1024)||exit 0;
if (! my $res = sysread(STDIN,$data,1024)) { if (defined $res) { ... die "Couldn't read from input: $!"; }; };