while($exp){
     $exp->interact(\*STDIN,"\cA");
     print "you exited";
    }


##</code><code>##

while($exp){
     $exp->interact(\*STDIN,"\cA");
     if("escape sequence capture" =~ /\cT/){
     &t_stuff;
     }else{
     print "you exited";
     }    
}