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

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

##</code><code>##

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

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

##</code><code>##

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

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

##</code><code>##

#! 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;

##</code><code>##

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

open (FH, '< :raw', $ARGV[ 0 ]) or die $!;
while ( $read = sysread( FH, $buf, 4096 ) ) {
	for my $p ( 0 .. $read ) {
		$ch = substr $buf, $p, 1;
	}
}
close FH;

##</code><code>##

#! perl -slw
use strict;

my( $read, $buf, $ch, $pair );
my $offset =  0;

open (FH, '< :raw', $ARGV[ 0 ]) or die $!;

while ( $read = sysread( FH, $buf, 4096 - $offset, $offset ) ) {
	for my $p ( 500 .. $read ) {
		$pair = substr( $buf, $p - 500, 1 ) . substr( $buf, $p, 1 );
	}
	$buf = substr( $buf, $read - 500, 500 );
	$offset = 500;
}

close FH;