Uncaught exception from user code:
       OLE exception from "<Unknown Source>":

Invalid access to memory location.


Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
   in METHOD/PROPERTYGET "document" at C:\Scripts\this.pl line 69 at C:/Perl/site/lib/Win32/OLE/Lite.pm line 216
       Win32::OLE::Tie::FETCH('Win32::OLE::Tie=HASH(0x1c0e754)', 'document') called at C:\Scripts\this.pl line 69 

##</code><code>##

    my $IEDoc = $IEWin->{Document};
    my $frames = $IEDoc->{frames};

    my %frameshash;
    for (my $i = 0; $i < $frames->{length}; $i++)
    {
        $frameshash{$frames->{$i}->{name}} = $frames->{$i};
    }
    foreach my $key ( keys( %frameshash ) )
    {
        print "\n".$key."\n";
        print $frameshash{$key}->{document}->{body}->{innerHTML}."\n";
    }