#!/usr/bin/perl
#
use strict;
use warnings;
use Win32::OLE qw(in);

my $objConn = Win32::OLE->new("ADODB.Connection");
die Win32::OLE->LastError() if(Win32::OLE->LastError());
die "No connection object" unless($objConn);

$objConn->Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\\temp\\Northwind.sdf");
die Win32::OLE->LastError() if(Win32::OLE->LastError());

my $objRS = $objConn->Execute("SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'TABLE'");

while(! $objRS->{EOF}) {
	print $objRS->Fields('TABLE_NAME')->{value} . "\n";
	$objRS->MoveNext();
}