Select Code to Download

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

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

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

    @l_row = $sql->fetchrow_array;

$dbh->disconnect