Select Code to Download

sub YetAnotherMakePtag {
  my $fixme = shift;
...
  my @wrapped_lines = map { "<p>$_</p>" } @nonblank_lines;
  return join("\r\n", @wrapped_lines;
}