Select Code to Download

use Data::Dumper   qw( Dumper );
use HTML::Entities qw( encode_entities );
...
print encode_entities(Dumper($content));
print '</pre>';
print $content;