perl 在tk中的回呼函數 參數為一個函數的引用__函數

my (@frames,@button);my %sub_of = (    "日誌查詢" => \&push_button2 ,        "簡訊查詢" => \&push_button3 ,        "VIEW DISK" => \&push_button4 ,        4 => sub{ print "program 4" },        5 => sub{ print "program 5" },        6 => sub{ print "program 6" },        7 => sub{ print "program 7" },        8 => sub{ print "program 8" },        9 => sub{ print "program 9" },); $but2 = $frm_name1 -> Button(-text => "匯出資料",-command =>\&sub_exp)-> pack(-side=>"left",-ipadx=>20,-padx=>30);