Select Code to Download

use Encode qw/decode/;
$self->{buffer}=decode('UTF-8', $self->{buffer});

  
$self->{buffer} = join "\n", qq[<div class="pod">], $self->{buffer}, "
+</div>";

use Encode(qw/encode/);
$self->{buffer}=encode('UTF-8', $self->{buffer});

$self->SUPER::parse_from_file(@_);