Standard CGI Variables (DCL symbols)
----------------------
  $FACILITY == "%X00000003"
  $IDENT == "%X00000000"
  $RESTART == "FALSE"
  $SEVERITY == "1"
  $STATUS == "%X00030001"
  AUTH_TYPE == ""
  CONTENT_LENGTH == "0"
  CONTENT_TYPE == ""
  CSP_NONCE == "6b47331bcdcb66a20d303376593759a"
  DOCUMENT_ROOT == ""
  GATEWAY_BG == "BG22313:"
  GATEWAY_EOT == "$D-2E77AECCF883555D01DE147A-"
  GATEWAY_ESC == "$E-DA5A97B30BF2915873F7DB79-"
  GATEWAY_INTERFACE == "CGI/1.1"
  GATEWAY_MRS == "16492"
  GATEWAY_SYMBOLS == "AUTH_TYPE,CONTENT_LENGTH,CONTENT_TYPE,CSP_NONCE,DOCUMENT_ROOT,GATEWAY_BG,GATEWAY_INTERFACE,GATEWAY_EOT,GATEWAY_ESC,GATEWAY_MRS,HTTP_ACCEPT,HTTP_USER_AGENT,HTTP_ACCEPT_ENCODING,HTTP_HOST,PATH_INFO,PATH_ODS,PATH_TRANSLATED,QUERY_STRING,REMOTE_ADDR,REMOTE_HOST,REMOTE_PORT,REMOTE_USER,REQUEST_METHOD,REQUEST_PROTOCOL,REQUEST_SCHEME,REQUEST_TIME_GMT,REQUEST_TIME_LOCAL,REQUEST_URI,SCRIPT_FILENAME,SCRIPT_NAME,SERVER_ADDR,SERVER_CHARSET,SERVER_GMT,SERVER_NAME,SERVER_PROTOCOL,SERVER_PORT,SERVER_SIGNATURE,SERVER_SOFTWARE,UNIQUE_ID,KEY_1,KEY_2,KEY_3,KEY_4,KEY_5,KEY_COUNT"
  HTTP_ACCEPT == "*/*"
  HTTP_ACCEPT_ENCODING == "gzip, br, zstd, deflate"
  HTTP_HOST == "wasd.vsm.com.au"
  HTTP_USER_AGENT == "Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)"
  KEY_1 == "this"
  KEY_2 == "is"
  KEY_3 == "a"
  KEY_4 == "query"
  KEY_5 == "string"
  KEY_COUNT == "5"
  PATH_INFO == "/wasd_root/src/perl/"
  PATH_ODS == "5"
  PATH_TRANSLATED == "WASD_ROOT:[src.perl]"
  QUERY_STRING == "this+is+a+query+string"
  REMOTE_ADDR == "18.219.213.196"
  REMOTE_HOST == "ec2-18-219-213-196.us-east-2.compute.amazonaws.com"
  REMOTE_PORT == "6375"
  REMOTE_USER == ""
  REQUEST_METHOD == "GET"
  REQUEST_PROTOCOL == "HTTP/1.1"
  REQUEST_SCHEME == "http:"
  REQUEST_TIME_GMT == "Sat, 18 May 2024 07:00:23 GMT"
  REQUEST_TIME_LOCAL == "Sat, 18 May 2024 16:30:23"
  REQUEST_URI == "/cgi-bin/CGIplusPM_example1.pl/wasd_root/src/perl/?this+is+a+query+string"
  SCRIPT_FILENAME == "CGI-BIN:[000000]CGIPLUSPM_EXAMPLE1.PL"
  SCRIPT_NAME == "/cgi-bin/CGIplusPM_example1.pl"
  SERVER_ADDR == "119.252.17.13"
  SERVER_CHARSET == "ISO-8859-1"
  SERVER_GMT == "+09:30"
  SERVER_NAME == "wasd.vsm.com.au"
  SERVER_PORT == "80"
  SERVER_PROTOCOL == "HTTP/1.1"
  SERVER_SIGNATURE == "<address>WASD/12.2.1 Server at wasd.vsm.com.au Port 80</address>"
  SERVER_SOFTWARE == "HTTPd-WASD/12.2.1 OpenVMS/IA64 SSL"
  UNIQUE_ID == "d30bd2d0857c57d79e3"
----------------------

Demonstrate that the CGIplus::var() function and $ENV associative array contents are identical ...

$ENV{'SCRIPT_NAME'}  |/cgi-bin/CGIplusPM_example1.pl|
CGIplus::var('SCRIPT_NAME')  |/cgi-bin/CGIplusPM_example1.pl|

$ENV{'PATH_INFO'}    |/wasd_root/src/perl/|
CGIplus::var('PATH_INFO'}    |/wasd_root/src/perl/|

$ENV{'QUERY_STRING'} |this+is+a+query+string|
CGIplus::var('QUERY_STRING') |this+is+a+query+string|

SERVER_SOFT does not exist and looks like an empty string ...
SERVER_SOFT ||

SERVER_SOFTWARE should exist ...
SERVER_SOFTWARE |HTTPd-WASD/12.2.1 OpenVMS/IA64 SSL|