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

   while (lc($yn) ne "y" || lc($yn) ne "n")
     {
      print "Invalid option, please enter an Y or N : ";
      $yn=<STDIN>;
     }

   print "Valid option entered";
  }