my $TextS=$BB5_frame->Scrolled("Text", -wrap=>'none')->pack();
$BT5_frame->Button(-text => "RUN", -command=> sub { 
$c_pid = fork();
if (defined($c_pid) and $c_pid == 0) 
{  
     $SIG{CHLD}='IGNORE';
     my $flag =0;
     $T_pid = open(Out ,"-|" ,"/usr/bin/ssh","-x",$Ap_host,@Pre);
     $SIG{TERM}  = sub {kill ('TERM',$T_pid);
                        close(Out);
                       };
     while (<Out>)
     {
         $TextS->insert('end', $_);
     }
}
})->pack(-side=>'left');