# Set the DSN for ODBC connection

my $DSN		= "driver=Microsoft Excel Driver (*.xls);dbq=$SpreadSheet";

# Connect to the Spread Sheet

my $ExcelHandle = DBI	->connect("dbi:ODBC:$DSN", '','')
	or die "$DBI::errstr\n";

##</code><code>##

my $Table	= '[Sheet1$]';  # This translates to Sheet1

# This is an example query statement to read a worksheet.

my $QueryStatement = "SELECT * FROM $Table";

my $ExcelQuery	= $ExcelHandle	-> prepare( $QueryStatement );

$ExcelQuery	-> execute();