use CGI qw(escapeHTML);
  my $finder = URI::Find->new(
                              sub {
                                  my($uri, $orig_uri) = @_;
                                  $_ = escapeHTML("$_") for $uri, $orig_uri;
                                  return qq|<a href="$uri">$orig_uri</a>|;
                              });
  $finder->find(\$text);