<pre name="code" class="sql">#!/usr/local/bin/perl
use Tk;
use dbi;
#Global Variables
my $age = 10;
# Main Window
my $mw = new MainWindow;
#GUI Building Area
#Age
my $but1 = $mw -> Button(-text=>"view cpu", -command =>\&push_button1); ## 执行函数push_butto
my $but2 = $mw -> Button(-text=>"view memory", -command =>\&push_button2); ## 执行函数push_butto
my $but3 = $mw -> Button(-text=>"view disk", -command =>\&push_button3); ## 执行函数push_butto
my $but4 = $mw -> Button(-text=>"view err", -command =>\&push_button4); ## 执行函数push_butto
my $but5 = $mw -> Button(-text=>"view syslog", -command =>\&push_button5); ## 执行函数push_butto
my $but6 = $mw -> Button(-text=>"view event", -command =>\&push_button6); ## 执行函数push_butto
#Text Area
my $t