*.mdb , perl

[Gandalf]

Всем привет ,
как через перл изпользуя "Win32::ODBC"
получить имена всех таблиц и имена всех полей в таблицах в *.mdb

use CGI ':standard';
use CGI qw(:cgi-lib);
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
print "Content-type: text/html\n\n";

$database = "pathto/olorin/db.mdb";
my $table    = "links";
my $field    = "name";

$Conn = Win32::OLE->new("ADODB.Connection");
$RS   = Win32::OLE->new("ADODB.Recordset");

$DSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};
        DBQ=$database;UID=;PWD=;";
$Conn->Open($DSN);
# read
###########################
$SQL = "SELECT $field FROM $table";

$RS->Open($SQL, $Conn, 1, 1);

until ($RS->EOF) {
   my $value = $RS->Fields($field)->value;
   print "$value\n<br>";
   $RS->MoveNext;
}
#######################

# write
#################
#$RS->Open($table, $Conn, adLockOptimistic, adOpenDynamic);
#
#my $fields = [$field];
#my $values = ["Hello World!"];
#$RS->AddNew ($fields, $values);
##################

$RS->Close;
$Conn->Close;

этим кодом получаешь значение полей в изначально заданной таблице с полем

[CrazyAlieN]

Интересно...
а как ПХП-ой выдрать всё из такого файла?