#!perl -w
use strict;
use WWW::Mechanize::Firefox;

my $mech = WWW::Mechanize::Firefox->new();
$mech->get_local("t/52-frameset.html");
print for map { $mech->content( document => $_) }
    $mech->expand_frames('frame[name="myframe1"]');

##</code><code>##

    my $d = $self->document; # keep a reference to it!

##</code><code>##

    my $d = delete $options{ document } || $self->document; # keep a reference to it!