On a completely different track (since everybody else answered this question)... looking at the following:

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

Why not try the following:

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

This way if somebody enteres "y" or "Y" or "Yes" etc. it will work (never underestimate what users will type in... even yourself).

The die is not necessary since the until loop is fixed. You're breaking program structure by forcing an exit with die.