sub check_ok {
  my $str = shift;
  my $answer = shift;

  print "$str. Continue? y/n ";
  chomp ($answer) = <STDIN>;               <<
  die if 'N' eq uc $answer;
  if ( 'Y' ne uc $answer ) {
    print "Invalid response.  Try again...\n";
    check_ok($str);
  }
  return;
}