Select Code to Download

sub WaitforDone{
    my $self = shift;
    my $agent = $self->{agent};
...
        sleep 1;
    }
}

sub Win32::IEAutomation::WaitforDoneTimeout {
    my( $self, $timeout ) = @_;
...
    }
    return "nuclear explosion";
}

sub Click{
    my ($self, $nowait) = @_;
    $self->{element}->click;
    $self->{parent}->WaitforDone unless $nowait;
}