open "< FH";
binmode FH;

##</code><code>##

while (read(FH, $buf, 512)) {
       do something;
}