If the code runs on one platform but not on the other then you probably have a version problem. Run the following on both platforms to see if it give you any clues:
#!/usr/bin/perl -w
print "\n Perl version : $]";
print "\n OS name : $^O";
print "\n Module versions: \n";
my @modules = qw(
Spreadsheet::ParseExcel
OLE::Storage_Lite
);
for my $module (@modules) {
my $version;
eval "require $module";
if (not $@) {
$version = $module->VERSION;
$version = '(unknown)' if not defined $version;
}
else {
$version = '(not installed)';
}
printf "%21s%-24s\t%s\n", "", $module, $version;
}
--
John.
--
|
(7)
]
