my $dbh = DBI->connect($dsn, $user, $pw) ||
die "ERROR: can't connect to database server\n";
return $dbh;
    $host     = "dev.sp1.wilinlog.com";