Frame放置其他控件的地方

use Tk;
use strict;  
use DBI; 
# Main Window
my $mw = new MainWindow;
my $frm = $mw -> Frame() ->pack;
my $but1 =$frm  -> Button(-text => "view cpu",-width=>300,
-command =>\&push_button);
$but1 -> pack();

my $but2 = $frm -> Button(-text => "view memory",-width=>300);

$but2 -> pack();

my $but3 = $frm -> Button(-text => "view disk",-width=>300);

$but3 -> pack();

my $but3 = $frm -> Button(-text => "view Event",-width=>300);

$but3 -> pack();


my $but4 = $frm -> Button(-text => "cleart",-width=>300,-command =>\&clear_button);

$but4 -> pack();
#Text Area
my $txt