Select Code to Download

use strict;
# import OLE
...
    my $n = 0;
    foreach (@_) {print $n++.": $_\n"};        
}

Attempt to free unreferenced scalar at C:\p2exe\word2txt\debug_word2tx
+t.pl line 28.
Can't call method "Dispatch" on unblessed reference at (eval 1) line 1
+.
END failed--call queue aborted.

use strict;
# import OLE
use Win32::OLE qw(in with);
...
    my $n = 0;
    foreach (@_) {print $n++.": $_\n"};        
}