BEGIN {


$dbh = DBI->connect($DNS, "login", "password")

}