my $dbh = DBI->connect("DBI:mysql:database=data;host=server","uname","pass") or
    die( "Could not make connection to database: $DBI::errstr" );