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