while ( sysread( ... ) ){ print( ord( $buffer ), "\n" ) }