Select Code to Download

sub DISALLOWED_SCHEMES ()  {
  qw( mailto javascript )
}

next if grep { $uri->scheme eq $_ } DISALLOWED_SCHEMES;

my @dissallowed = DISALLOWED_SCHEMES;
foreach my $scheme (@dissallowed) {
  next MAINLOOP if ($uri->scheme eq $scheme);
}