# ...
$frame1->pack(-side => 'top', -fill => 'both', -expand => 1);
$frame2->pack(-side => 'top', -fill => 'both', -expand => 1);
$frame3->pack(-side => 'top', -fill => 'both', -expand => 1);