Select Code to Download

#!/usr/bin/perl -w
use strict;
...
timethese(100, {'bind' => \&by_bind, 'arrayref' => \&by_arrayref});

$dbh->disconnect();