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

open (FH, '< :raw', $ARGV[ 0 ]) or die $!;
until (eof(FH)) {
	$ch = getc(FH);
}
close FH;