perl 调用按钮输出到文本框

 sub push_b4 {
 #$txt -> insert('end');
 #select $txt;

 system("expect c:\\\\expect.txt >expect.out");
 open (FH1 ,"<","expect.out");
                    while (<FH1>) {
$txt -> insert('end',$_);
  }
 }