#!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"]');