#!/usr/bin/perl -w

use strict;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;

{
    my $filename = '/app/etl/Informatica/dev/PowerCenter/9.5/server/****3212.xls';
    my @inputs = (
        $filename,
        do { open my $fh, '<:raw:bytes', $filename or die; $fh },
        do { open my $fh, '<:raw:bytes', $filename or die; local $/; my $d = <$fh>; \$d },
    );

     my $parser = Spreadsheet::ParseExcel->new(Password => '123q');
    for my $input (@inputs) {
        my $workbook = $parser->parse($input);

        my $worksheet = $workbook->worksheet(0);
        my $cell = $worksheet->get_cell(1, 1);
        is($cell->value, 'abcdefgABCDEFG');
    }