perl 程式存取 MS Access MDB 資料庫

use strict;
use DBI;
# mdb 資料庫
my $mdb = 'C:/access.mdb';
# SQL 語法
my $sql = 'select * from notifications';
# 連線到資料庫
my $dbh = DBI->connect("dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=$mdb");
# 執行 SQL 語法
my $sth = $dbh->prepare("$sql");
$sth->execute || die " Could not execute SQL statement ... maybe invalid?";
# 顯示出結果
while (my @row = $sth->fetchrow_array()){ 
 print "@row";
}