Select Code to Download

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

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