Select Code to Download

sub page {
  foreach (@_) {
...
    if ($ln+1 == $=) { print "--more--"; chop (my $i=<>); $ln = 0 }
  }
}

{
  page "foo bar baz bletch";
...
  my $buf = sprintf ("%.5d", $real);
  page $buf;
}