Select Code to Download

#!/perl
use strict;
...
$start = time;

$dbh->disconnect;

Time till connect: 0.0150408744812012
Time till load: 4.3910698890686
...
Time till execute: 0.110021829605103
Answer: 40000
Time after loop: 0.16477108001709

my $sql = "select Name, Writeups from employees e, groups g where e.Le
+vel = g.Level and g.Level = 'Pope (28)' order by e.Writeups desc ";

...
print "Time after loop: ", time() - $start, $/;
$start = time;
$dbh->disconnect;

Time till connect: 0.0147781372070313
Time till load: 4.42248010635376
Answer: 40000
Time after loop: 0.415067911148071

#!/perl
use strict;
...
    });

$dbh->disconnect;

            Rate selectall  PrepExec
selectall 2.88/s        --      -26%
PrepExec  3.90/s       35%        --

            Rate selectall  PrepExec
selectall 2.69/s        --      -25%
PrepExec  3.57/s       33%        --