sub prompt {
      -t STDIN and print "\n? ";
    }

  while ( prompt(), defined($_=<STDIN>) ) {
    chomp;
    print "$_\n";
  }