#!C:/Perl/bin/perl.exe
use CGI qw(:standard);
use CGI;
use CGI::Carp "fatalsToBrowser";
use DBI;

$dbh=DBI->connect("dbi:ODBC:'driver=Microsoft Access Driver (*.mdb); dbq=test.mdb'",'','');
$sth=$dbh->prepare("SELECT * FROM table1");
$sth->execute();


print header();
@information = $sth->fetchrow_array;

foreach $test (@information){
print $test;
print "\n<br>\n";
}

$sth->finish;
$dbh->disconnect;