#!//usr/bin/perl

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