{
  print "Pick an integer between 1 and 3 (exclusive):"
  $mynum1 = <STDIN>;
  (print "Follow instructions!\n"),redo 
     unless ($mynum < 3) and ($mynum > 1) and ($mynum == int($mynum));
}