use DBI;

$ dbh = DBI->connect("dbi:ODBC:KURS","userid","password")
||die print $DBI::errstr;
$mot=$dbh->prepare("SELECT * from test1");
$mot->execute;

$mot->finish;
$dbh->disconnect;