chomp $choice; if ($choice eq 'q') { print "quitting\n"; exit; }