Select Code to Download

#!/usr/bin/perl
use strict;
...
    my $dbh = DBI->connect(...);
    return bless $dbh, 'My::DBI::st';
}