use HTML::Entities qw(encode_entities);
print "<pre>";
print encode_entities($_) while <HANDLE>;
print "</pre>";