How about simply using the diamond operator to wait for user input?

my $dummy;

while (..) {
  ...
  $counter++;
  print $text;
  $dummy = <>;
}
[download]

jeffa