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