Select Code to Download

Wrap each URI found in an HTML anchor. 

...
                              });
  $finder->find(\$text);

use CGI qw(escapeHTML);
  my $finder = URI::Find->new(
...
                                  return qq|<a href="$uri">$orig_uri</
+a>|;
                              });
  $finder->find(\$text);