#!/usr/local/bin/perl -W

use Storable;
use Time::HiRes qw(gettimeofday tv_interval);

for $i (1..1000000){
    $table{$i} = $i;
}

$t0 = [gettimeofday];

store \%table, 'file.db';
%table = ();

$hashref = retrieve('file.db');
%table = %$hashref;

$elapsed = tv_interval ( $t0 );

print "$table{1000000}, se tardó $elapsed\n";

__END__

Storable forma parte del CORE de Perl, y ha mejorado mucho en usabilidad