my $input;
while( $input != "good" )
{
  print "Please enter number:\n";
  $input = <STDIN>;
}

#rest of code