C:\test>primes-a 2
        3

Took: 0.000457048416137695 seconds

C:\test>primes-a 15e6
275604541

Took: 0.000396966934204102 seconds

C:\test>primes-a 12345678
224284387

Took: 0.000416040420532227 seconds

##</code><code>##

C:\test>dir data\primes.all
2006-02-04  15:50       165,000,000 primes.all

##</code><code>##

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

print "Took: ", time() - $start, ' seconds';;