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