unless defined $referer && $referer eq $base;

            unless defined $referer && substr($referer, 0, length $base) eq $base;