sub check_url {
        local $_ = shift;
        my $valid_referrers = shift;

        my $valid = join '|', @$valid_referrers;
        return /$valid/ ? 1 : 0;
    }