#usr/bin/perl -w

#=for  comment
#pseudocode:

#start event loop
 #   gather input, then act on input # actions are print statements
   

#=cut

$quit = 0; $answer = "blank";
while ($quit == 0) {
    print "Do you want to loop?\n";
    $answer = <STDIN>;
    print $answer;
}