my $hostname    = "localhost";
my $db_name     = "test";
my $dsn         = "DBI:mysql:host=$hostname; database=$db_name";

my $dbh         = (DBI->connect($dsn, "ttt", "nancy613",
                    {PrintError => 0, RaiseError => 1} ));