use HTML::TreeBuilder;

sub get_contents {
  HTML::TreeBuilder
  ->new_from_file($_[0])
  ->find_by_tag_name('body')
  ->as_HTML
}
[download]

jdporter
...porque es dificil estar guapo y blanco.