#! perl -slw
use strict;
my $ch;

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