##
C:\test>dir data\primes.all
2006-02-04 15:50 165,000,000 primes.all
####
#! perl -slw
use strict;
use Time::HiRes qw[time];;
my $start = time;
open P, '<:raw', 'data\primes.all';
seek P, 11 * ( $ARGV[ 0 ] - 1 ), 0;
print scalar ;
close P;
print "Took: ", time() - $start, ' seconds';;