use strict;
use OLE;

my $dbh;

$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;
$dbh->Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\_private\\db1.mdb");

my $sql = "SELECT email, password FROM surya";

	my $rs = $dbh->Execute($sql);

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

$dbh->Close();

##</code><code>##

$dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=\\_private\\db1.mdb");