sub promptUser {
   local($promptString,$defaultValue) = @_;
   print $promptString;
   $| = 1;          
   $_ = <STDIN>;      
   chomp;
   return $_;
}
while (1) {
$command = &promptUser("ABC> ");
}