use DBI;

$start = time;
$dbh_metro = DBI->connect("dbi:ADO:metro");
$finish = time - $start;
$Response->write("<CENTER><H2>took $finish seconds to connect DB</H2></CENTER>\n");


##</code><code>##

$start = time;
$dbh_metro = $Server->CreateObject('ADODB.Connection');
$dbh_metro->Open("metro");
$finish = time - $start;
$Response->write("<CENTER><H2>took $finish seconds to connect DB</H2></CENTER>\n");