#!/usr/bin/perl

use warnings;
use strict;
use Spreadsheet::ParseExcel;
use Devel::Leak;

my $handle;
my $num_vars = Devel::Leak::NoteSV($handle);

{
        my $filename = "9000.xls";
        my $oExcel = new Spreadsheet::ParseExcel;
        die "No excel obj\n" unless $oExcel;
        my $oBook  = $oExcel->Parse($filename);
        unless($oBook) {
                die "Parsing of file $filename failed: $!\n";
        }
}

my $new_num_vars = Devel::Leak::CheckSV($handle);