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