#Windows-based Perl/DBI/MS Access example
use DBI;

 #open connection to Access database
 $dbh = DBI->connect('dbi:ODBC:TestCasesXP2K','','');

 #prepare and execute SQL statement
 $sth = $dbh->prepare('SELECT * FROM [TestCasesOutput]');
 $sth->execute || 
       die "Could not execute SQL statement ... maybe invalid?";
print "Error 4\n";
 #output database results
 while (@row=$sth->fetchrow_array)
  { print "@row\n" }