use strict;
use Win32::OLE;
 
my $cn = Win32::OLE->new("ADODB.Connection");
$cn->Open( "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=.\hello.mdb" );
my $rs = $cn->Execute( "SELECT 'Hello, ADO World!' AS Message" );

while ( !$rs->EOF ) {
    print $rs->Fields(0)->{Name}, "n";
    print "-------------------n";
    print $rs->Fields(0)->{Value}, "n";
   $rs->MoveNext();
}

$rs->Close();
$cn->Close();