programming-examples/perl/Statement/Using a label without a loop and the redo statement.pl

#!//usr/bin/perl

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