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

use Storable qw[ retrieve ];;

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