print "Do you wish to continue? (yes/no): ";
chomp ($resp=<>);
print "resp=$resp\n";