use FindBin ();
use vars qw ( $skriptdir );
$skriptdir = $FindBin::Bin;
...
    print "Skriptdir: $skriptdir".CGI::br();
    print "FindBin: $FindBin::Bin".CGI::br();
    print "File: $Cgi::Error::TEMPLATE_PATH/${Cgi::Error::SUBDOMAIN}/$errnum.html", CGI::br();
    print "DocRoot: $ENV{DOCUMENT_ROOT}",CGI::br();
    print "IsSecure: ", Cgi::Template::_isSecurePath(
            "$Cgi::Error::TEMPLATE_PATH/${Cgi::Error::SUBDOMAIN}/$errnum.html"),CGI::br();