if ($answer ne 'y') {     
       print "OK\n" ;
  } else { 
       $quit = 1 ;
       die "OK!\n\n" ;
  }

##</code><code>##

  $quit = ($answer !~ m/^y/i);