#!//usr/bin/perlATTEMPT: { print "Yes/No? "; chomp($answer = ); unless ($answer eq "yes"){ redo ATTEMPT ; }}