Select Code to Download

# $HOME/.my.cnf

...
[myapp]
user=specialguy
password=something_different

my $dbh = DBI->connect("DBI:mysql:test"
    . ";mysql_read_default_file=$ENV{HOME}/.my.cnf"
...
    undef, 
    undef
   ) or die "something went wrong ($DBI::errstr)";

my $profile = shift || 'usage';

...
    undef, 
    undef
   ) or die "something went wrong ($DBI::errstr)";