-Thanks for the replies BrowserUk. Right now I put in a hack until I can figure out or find an answer,

 
    {
        local *STDERR;
        open(STDERR, '>/dev/null');
        $oBook = $oExcel->Parse($disclaimer) || die "Unable to parse $
+disclaimer";
    }
[download]

..not the right solution, but it works for now.

Thanks Again, sth

Pragmatic! You could also do:

{
    local $SIG{ __WARN__ } = sub{};
    $oBook = $oExcel->Parse($disclaimer) 
        || die "Unable to parse $disclaimer";
}
[download]

ps. Dropping a line to the module owner might be good too.

---

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algoritm, algorithm on the code side." - tachyon

{
    local $SIG{ __WARN__ } = sub{};
    $oBook = $oExcel->Parse($disclaimer)
        || die "Unable to parse $disclaimer";
}
[download]

..thanks, I like this better. :-)

ps. Dropping a line to the module owner might be good too.

...I was thinking that myself.

Once again Thanks,

sth