Select Code to Download

my $count = 0;
my $message = "Get a Segmentation fault within 20 clicks of Okay: ";
...
  pop_up_a_message($message . $count);
  $answer = return_exit_if_count_gt_5($count++);
}

#!/usr/bin/perl -w
# File test_pop_up_a_message.pl
...
  pop_up_a_message($message);
  print ("You pressed $answer\n");
}