#!/usr/bin/perl print "Are you o.k.? "; chomp($answer=<STDIN>); until ($answer eq "yes"){ sleep(1); print "Are you o.k. yet? "; chomp($answer=<STDIN>); }