sub continue_yn
  {
   print "Do you wish to continue the installation (Y/N) : ";
   $yn=<STDIN>;
   chomp $yn;

  LOOP:
   while ( 1 )
     {
      last LOOP if lc($yn) eq 'y';
      last LOOP if lc($yn) eq 'n';
      print "Invalid option, please enter an Y or N : ";
      $yn=<STDIN>;
      chomp $yn;
     }

   print "Valid option entered";
  }