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