Well spotted, this is of course why it says:

Execute your scripts with perl -w and use strict - this catches most of your errors.

in the Using OLE with Perl FAQ that comes with ActivePerl.

/J\