my $start = time; 
my $queries = 0; 
 
# do all of your work, remembering to increment $queries 
# each time you execute a query 
 
my $elapsed = time - $start; 
 
print "Executed $queries queries in $elapsed seconds\n";