#! perl -slw
use strict;
my( $buf, $ch );

open (FH, '< :raw', $ARGV[ 0 ]) or die $!;
while ( sysread( FH, $buf, 1 ) ) {
	for $ch ( split'', $buf ) {
	}
}
close FH;