SQLサーバにアクセス

perlでSQLサーバにアクセスできてしまった。
ちょっと感動・・・

use OLE;
$conn=CreateObject OLE "ADODB.Connection";
$conn->open("dsn=pubs;uid=su;PWD=**");
$rs=$conn->Execute('SELECT * FROM jobs;');
for(;!$rs->EOF();$rs->MoveNext){
$id=$rs->Fields('job_id')->Value;
$job=$rs->Fields('job_desc')->Value;
print "$id:$job\n";
}
$rs->Close();
$conn->Close();

やればできるもんだなあ(感涙)
WEBサーバ上にAccessのmdbを置いてアクセスできるのかなあ？
できたら便利になるけどなあ。
今度試してみようっと♪