print "Do you wish to update (Y/N)?\n";
  
     
     my $choice = <>;
     chomp $choice;

 while ($choice ne "Y" || $choice ne "y" || $choice ne "N" || $choice ne "n")