Select Code to Download

<p>Here is a foo
<p>Here 
...
<p><a href="http://foo.com">
foo.com
</a>

#!/usr/bin/perl -w

...
    my $text  = $p->get_trimmed_text($close);
    print "<$open><font color='$font{$open}'>$text</font><$close>\n";
}