Select Code to Download

#!/usr/bin/perl
use strict;
...
my $dbh  = DBI->connect($dsn,$username,$password, \%attr);

say "Connected to the MySQL database.";