Select Code to Download

my $uri = $q->param('uri')||"";
my $uriobj = URI::Fusker->new(uri => $uri, maximum => 100);
my @urls = $uriobj->as_list;
#After which @urls is popped into a template, printed, etc

package URI::Fusker;
#copyright 2001, 2002 carthagtuek@softhome.net
...
This program is free software. You may copy or redistribute it under t
+he same terms as Perl itself.

=cut