It is worth noting that speed will probably not be a problem with this since Perl's stdio is buffered by default.

That is, the first call to read() will cause Perl to stash away its own buffer, preventing you from needing to maintain your own.

If you want to do it this way, sysread() would be a better choice, as this is Perl's interface to the read() syscall.