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