my $dbh = DBI->connect('DBI:mysql:db_name', 'user', 'pass') or die "Couldn't open database: $DBI::errstr";