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";
    }