Select Code to Download

#!perl
use strict;
...
my $dbh = DBI->connect('DBI:mysql:test:localhost','','')
  or die $DBI::errstr;
print $dbh->tables;