Help for this page

Select Code to Download

Select or download this

C:\test>\perl32\bin\perl.exe \perl32\bin\p1.pl
use Storable qw[ nstore retrieve ];;
...

C:\test>dir junk.sto
16/05/2012  12:22       199,999,628 junk.sto

Select or download this

C:\test>\perl32\bin\perl.exe \perl32\bin\p1.pl

...

$t=time; $a = retrieve( '/test/junk.sto' ); print time()-$t;;
12.2560520172119