Oops sorry, try:
print "Please enter a value between 0 and 60";
chomp($option = <STDIN>);
} while ($option !~ /^\d\d?$/ or ($option < 0 or $option > 60));
Code:
do { print "Please enter a value between 0 and 60";
chomp($option = <STDIN>);
} while ($option !~ /^\d\d?$/ or ($option < 0 or $option > 60));