#!/usr/bin/perl -w use strict; use HTML::HTMLDoc; my $htmldoc = new HTML::HTMLDoc(); $htmldoc->set_html_content(qq|