#! perl -slw
use strict;

open F, '<', 'e:\100MB' or die $!;
binmode F;

print 'Slurping...          ', scalar localtime;

my $file;
{
	local $/ = \(100*1024*1024);
	$file = <F>;
}
print 'Slurped. Searching...', scalar localtime;
print 'Not found' unless index( $file, "\xff" x 16 );
print 'Searched.            ', scalar localtime;
__END__
P:\test>junk2
Slurping...          Mon Oct 20 00:29:21 2003
Slurped. Searching...Mon Oct 20 00:29:26 2003
Searched.            Mon Oct 20 00:29:30 2003