use strict;
use OLE;

my $dbh;
$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;
$dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=\_private\db1.mdb");


my $sqlstatement="SELECT email,password FROM surya";
		
    my $rs = $dbh->Execute($sqlstatement);

    while (!$rs->EOF()) {
    print $rs->Fields('email')->Value . " " . $rs->Fields('password')->Value . "\n";
    $rs->MoveNext;
    }