time perl db.pl

Total time: 5
real	0m5.348s
user	0m0.360s
sys	0m0.820s