while(){
  print 'Prompt:> ';
  readline; 
  last if $_ eq 'quit';
}