perl -MDB_File -MData::Dumper -e 'tie %h, "DB_File", "junk.db"; 
for ($i=0; $i<1_000_000; $i++) { $h{"key_$i"}="value_$i" };
warn "the hash is loaded\n"; sleep 15; warn "starting dump\n"; 
print Dumper(\%h); warn "the hash has been dumped\n"; sleep 15' > /dev/null