Perl Pack写的一个数据报表程序

use Tk; 
use DBI; 
# Main Window
#
#my $mw = new MainWindow;
my $mw = MainWindow->new(-title => 'system monitor');
#
my $frm1 = $mw -> Frame() ->pack(-side=>"top",-fill => 'x');
my $but1 =$frm1  -> Button(-text => "view cpu",-width=>30,-background=>'green',
-command =>\&push_button);
$but1 -> pack(-side=>"left",-fill => 'x',-expand => 1 );


my $but2 = $frm1 -> Button(-text => "view memory",-width=>30,-background=>'green');

$but2 -> pack(-side=>"left",-fill => 'x',-expand => 1 );

my $but3 = $frm1 -> Button(-text => "view disk",-width=>30,-background=>'green');

$but3 -> pack(-side=>"left",-fill => 'x',-expand => 1);

my $but4