{
  my $input = '';
  while( $input ne 'c' && $input ne 'C' ) {
    print "Press C to continue\n";
    $input = <STDIN>;
    chomp $input;
  }
}
print "It worked, of course.\n";