Aha, my dear Watson...your problem (it seems) is the timeout. Here I will comment it out completely:

my $wait = 300;
#until ( $IEWin->{Busy} != 1 || $wait <= 0 )
#{
#    $wait--;
#    sleep 1;
#}
[download]

perl iestuff.pl
Win32::OLE(0.1701) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "Document" at iestuff.pl line 22
Use of uninitialized value in numeric lt (<) at iestuff.pl line 26 (#1
+)
....yadda yadda..
[download]

Now I'll put it back in:

left_frame
<CENTER>This is page1.htm from the example. <BR><BR>Click the link bel
+ow to change both frames. <BR><A href="javascript:change2()">Change 2
+ Frames</A> 
<P>
<HR>
...yadda...
[download]

Note that on different machines you will probably have to INCREASE that timeout. Looks like some objects take longer in IE to properly load. You might consider delving deeper into the IE object model to query the actual status of certain objects before proceeding with the code rather than guessing at the correct timeout.

Try and increase that timeout and reply if it works.