{
  print "value for XYZ? ";
  chomp($xyz = <STDIN>);
  unless (validate $xyz) {
    print "$xyz is not a valid XYZ\n"; redo;
  }
  print "confirm value $xyz for XYZ? (y/n)";
  redo unless <STDIN> =~ /^y/i;
}