#! perl -slw
use strict;
use Devel::Timer;

sub firstNprimes {
    my $n = shift;
    open my $primes, '<:raw', 'data\primes.all' or die $!;
    my @primes = split ' ', do{ local $/ = \( $n * 10 ); <$primes> };
    close $primes;
    return \@primes;
}

BEGIN{ <STDIN>; }
my $T = new Devel::Timer;

my $ref = firstNprimes( $ARGV[ 0 ] );
$T->mark( $ARGV[ 0 ] );

{ local $\; $T->report; }

printf 'Check mem'; <STDIN>;

__END__
C:\Perl\test\data>..\junk4

Devel::Timer Report -- Total time: 0.3176 secs
Interval  Time    Percent
----------------------------------------------
02 -> 03  0.3169  99.78%  100,000 -> 1,000,000
01 -> 02  0.0007   0.21%  201 -> 100,000
00 -> 01  0.0000   0.01%  INIT -> 201