#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;
my $file;

$file = 'test.xls';

my $oExcel = new Spreadsheet::ParseExcel;

my $oBook = $oExcel->Parse( $file )
	or die "Can not parse '$file': $!";

print $oBook, "\n";
exit(0);