Hi,

A couple of notes. First, the line:

my $final = ($string =~/(.*?)\x00/);

probably should be:

my ($final) = $string =~/(.*?)\x00/;

otherwise $final would be a the success of the match, not the first capture block.


Second, you may want to check the file path you are using. Many MS libraries need Windows file paths, not Perl-esque (or Unix like) ones. I have had this problem with Win32::COM a lot. I would want to give it a Perl-esque and I would get odd COM errors.

So, instead of:

my $filename="C:/Program Files/America Online 9.0g/aol.exe";

try:

my $filename="C:\\Program Files\\America Online 9.0g\\aol.exe";

I can't explain why it would give you the error you are getting (and it may have nothing to do with it), but it is something you might want to check on.

Ted