Select Code to Download

#!/usr/local/bin/perl -w

...

1;

while($numlines) {
   get_next_one(...);
   $numlines--;
   ...
}

200 OK whatever,man

  (while "whatever,man"--)
     {....}

"Larry"--;