Select Code to Download

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

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