Select Code to Download

my $dbh = DBI->connect( $DSN, $username, $mysqlpassword );
if ($dbh) {
...
} else {
    say "Catastrophe! Connection failure with DSN '$DSN': $DBI::errstr
+";
}