$dbh = DBI->connect('dbi:ODBC:DSN', 'user', 'password') || die ("Can't connect to database : ",$DBI::errstr);

##</code><code>##

    $sql = $dbh->prepare ("SELECT field FROM table") or die ("Unable to prepare statement: ",$DBI::errstr);

##</code><code>##

    $sql->execute()or die ("Unable to execute get_servertime : ",$DBI::errstr);

##</code><code>##

    @l_row = $sql->fetchrow_array;

##</code><code>##

$dbh->disconnect