P:\test>p1
perl> print read STDIN, $in, 10; print "'$in'";;
1234
5678
10
'1234
5678
'

perl> print sysread STDIN, $in, 10; print "'$in'";;
1234
6
'1234
'