psgi blacklist middleware

gistfile1.pl

my $ref_blacklist = [
  qr{antronio},
];

my $refcheck = sub {
  my $app = shift;
  sub {
    my $env = shift;
    for (@$ref_blacklist) {
      return [401, [], ['forbidden']] if $env->{HTTP_REFERER} =~ $_;
    }
    return $app->($env);
  };
};