my $book = ReadData ("file.xls");
my $book = Spreadsheet::Read->new ("file.xls");