my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port"
       || die "DB data set name failed $!\n";
#
# second step #
#
my $dbh = DBI->connect($dsn, $user, $password) 
                || die "DB connect failed $!\n";