use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("dbi:ADO:Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\\temp\\Northwind.sdf", undef, undef);


my $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'TABLE'");

$sth->execute();

while (my $href = $sth->fetchrow_hashref()) {
	print $href->{TABLE_NAME} . "\n";
}