sub WaitforDone{
    my $self = shift;
    my $agent = $self->{agent};
    while ($agent->Busy || $agent->document->readystate ne "complete")
+{
        sleep 1;
    }
}

sub WaitforDocumentComplete{
    my $self = shift;
    my $agent = $self->{agent};
    while ($agent->document->readystate ne "complete"){
        sleep 1;
    }
}
[download]

• Only post short, relevant code snippets. Use "code" tags (Writeup Formatting Tips).
• Post the code you use to call the Win32 methods.
• Basic debugging checklist

Do you get the same error with the following script?

use warnings;
use strict;
use Win32::IEAutomation;
my $url = 'http://www.perlmonks.org/?parent=1070018;node_id=3333';
my $ie  = Win32::IEAutomation->new( visible => 1);
$ie->gotoURL($url);
$ie->WaitforDone();
$ie->closeIE();
[download]