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