Select Code to Download

use strict;
use warnings;
...
  $sResult .= "<$tag>$innards</$tag>";
}
print STDERR "output: $sResult\n";

sub PolishHTML {
  my $str = shift;
...
  }
  return $str;
}