CPERLRTEV1.021-MAY-2023 08:21 VSI C V7.4-002  $READONLY$ CLIPERSISTENTENGINE ENOUGHCOUNT  CLICGIENVPTR CLICGIHASHNAMEPTR(CLICGIPLUSHASHNAMEPTR CLIFILETYPEPTR PERLVERSION SOFTWAREIDUTILITYit+$CODE$b $LITERAL$$LINK$$DATA$`B$BSS$  CGIVARDEBUG0 CGIVARDEBUG   CLICGIPREFIX0 CLICGIPREFIX  CLINOPERLEX0 CLINOPERLEX  CLINOSOCKET0 CLINOSOCKET CLICLEAN0CLICLEAN   CLIPERLDEBUG0 CLIPERLDEBUG8 CLIPERSISTENTENGINE DEBUG(DEBUG  ISCGIPLUS0 ISCGIPLUS0  ENOUGHCOUNT  USAGECOUNT0 USAGECOUNT   CGIPLUSEOFPTR0 CGIPLUSEOFPTR   CGIPLUSEOTPTR0 CGIPLUSEOTPTR   CGIPLUSESCPTR0 CGIPLUSESCPTR0  CLICGIENVPTR8 CLICGIHASHNAMEPTR8 CLICGIPLUSHASHNAMEPTR0 CLIFILETYPEPTR  CLIPERLSOURCEPTR8CLIPERLSOURCEPTR  CLIPERLSWITCHPTR8CLIPERLSWITCHPTR  PERLROOTPTR0 PERLROOTPTR  PERLSHRPTR0 PERLSHRPTR  PERLVERSIONPTR0PERLVERSIONPTR0  PERLVERSION0  SOFTWAREID( UTILITY(J@ CGIVAR0J DCLSYMBOLNAMES0J  GETPARAMETERS0J0 PROCESSREQUEST0J8P PROCTORDETECT(J+ STRSAME(J MAIN(J __MAIN 6= .PL=0"CLISYM_GLOBAL,LNM$PROCESS,LNM$JOB@= main::ENVP= main::CGIplusENVh= LNM$PROCESSx=0"PERL_ENV_TABLESGATEWAY_INTERFACE=0&GATEWAY_SYMBOLSWWW_GATEWAY_INTERFACE=WWW_GATEWAY_SYMBOLS $=  $=  ,4 ,@4 ,P4 ,4 9=?.?? 6  2=PERLRTE AXP-1.3.0 ( =PERLRTE  =#G8^~ _#0"@^4GHcGG#]("0[8b "G@Zk ](=(b#0@BG4Gb@ZkcG8]@]HP#k//#4G^[~^~޴>^~G{G`"b^>@Zkh"BTGXB`b/2"/@ZkB4G"b@Zk("8BGX""@bTGl@Zk("8BG""TG@b/@Zk`G¤($,$H/! ///&d"/ D.RSJGJRTBR@F/@ //.8B4G"@bUJJ/@Zk$, $H?$.$J¤( &F1 d.dJ/!`///"/ .VJJVB֢F/ //$/@bD#Y:K8B'K4G/@Zk$, $H?(BG4G0b@ZkBGp""btG@ZkBH"4Gb¤@ZkB"4GbH@ZkB4G"b/@ZkB4Gh"bh/@ZkH"G"D@xb#/@#//G4G=@@"/rR".JeBeF8F4FF` 0 B %B /xb#n@/E%BH"! B "x""EGbHb"@Zk` , H/qGTGh"///p@  JB/.@JJCFM G,@///F`E/$+/k!+KC%CyG/ +,k!+HC%@F/ k.k!kJCEBF/ @.k!JCBG/.k!J 9eAXB0@ J!""0vJaSIG`bF2v KC 5JFCG /@Zk,HG hbXBg@ = A@GG "᳘3"S"G`b/@ZkXB"="tGb]"@ZkGpb#@.hBb"pb#)1@+(@b#W@ӸB# 4Gbx x! @ZkBTG* b/@ZkB 4Gb@ZkBGGJGGb@Zk /%//b#2@cXBtG`b&`h GGG/@Zk//BGb/@ZkB4Gb@ZkBG4Gb@ZkBGb@ZkB4Gb/@ZkB4G4Gb@Zk//#;tG^~^GGp;[b@ !"/@Zkb#///@4G(" "b#10B8" ^@G "  1,B"H1HC UF9@//.u6H F1"TJ"BF>Q.QJ1"CaVJ8G%v/[vKaG"Bv?q.qJ1"CavJF/XKG?Q.QJC"B1"aVJtG .UJ"BF>q.qJC:G?B= 6.Q6J "B6>G4@B?@F/3///3/`F3K%C+CyG/0 S.s"SJEBKBG/(@.s"JBB7F/ s/s"sK%C+CF//s"KEBKBRG/@s"tB/aB `/3/3KեBBGs"aB_.hJeFG`7.7JCF/<///V/a6JF"FZVK"BAGV?W.WJ"CaVJ;G& /XKG?7.7J"B"Cy6JTG/v/[vKyG"Bv?7,7H"Ct6HXF @V/ZVKTGV?7.7JC"B;G?B.6,A6H6X^`~hpxG(GG$/ h;"b/@Zk ¤4GGBGbGh &"GR%/@ZkBG "GG&"Gb@ZkG$0BtGBb 2"G@Zk"B6 "GG]"Gb@ZkB "]"GGGb/@ZkX0DX0=!v H@b  =B""tGbX0A.RAJX0A> BX0R"@Zk0¤xB4Gb"/@Zk///X0ŠDX0Ű`#,#H/! X0% b?F X0s" T e /// ¦"T Ų/T Db@0BT EtGbh "@Zk`¤X0 FX0"#,#HT ŠX%Df F.FJT T BTGX""Bb@Zk&,T &HG%DF/ P."PJCEBF/@."JCBF/ /"KCCXG/p/"pK?,H/$///DF/p."pJCeBSF/@."JCBF/ 0/"0KC%CG/p/"pK0,0HCBT %/G .X JG"/4`///eBWBD{rJF /(/@FXKR"WBG?,H @CvHqD#D R/ZRKVGR?.JR"WB eBCqrJyGG.PJF>g,gHR".¤VJ DB_#R"X"`&"> vHGGXf:@C:v@K;K`GXf`8KGB`dFb]"/@ZkXf GdƠG#v`H'vH@@X #.r#HQ#J2FX #>f.SfJf>û`.ĢtG0B EJbP8"@Zk ,HT X%D* G.GJ "BTGx""b@T @Zk/'W_?&Gg r@WW1"T E1D P eP ŢBtG""bv@@ZkP e@ "W_%G"WW!'vH! g///J HE@P ŰC.P %CJa! qA G@/.B4G #bJCBF.WJJ@Zk*,B G "4GbA0H'H@ZkE,,!J!,H?$0BB 82"GGGb@Zk-I/ , HDgA!.!J G? B!"" GbtG///@ZkBG4G b@ZkBG4Gb@Zk(B GGGTG0b@ZkGMbTGx""BbE@ZkB//BtGEb"!GG/@ZkC-Ơ!4GxBGbCID/'` @ZkBGTGb!Gb@Zk/; ¤B" ///hBGE ?"tGpb@ZkG;-I/1 G8dE !k!E/*// .I#"PJJPBF /c.B4G"bStJgJ/@ZkPTGBb 0!G@Zkc-cI`GBc G4Gb  ?!//@Zk C@ A8BEGe4GG@b@ZkkhB?"E" GtGpb G@ZkS/- G#!I X!EL - I,///XEE/$ .! JCUBPF/l.!lJCUaBF/`.!JCUBG/ ,/!,KCU!CyG/  ,! HL.l  "g@4p@ "LJRLJ X!E L> ///@.hBxJ G1@WJtGpbF>E@Zkg@ p`D q`DI!(AJMIWAI 0BtG EbP "@Zke#v`H/`///BF"""CBtGb/@Zk-I/G//HB+4GPb@Zk"BTG$bH @ZkHB4GPb@ZkBTGb0$/@ZkHB4GPb@ZkBTG$b/@ZkHBPb4G4G@ZkEGG]] }(08ݤ@HP=X]`}hpx#k//g.S gJSFA.R AJ2F/3//XBG`b/@Zk8B4G@b@Zkc-K cI E//XBG`b/@Zk8B4G@b@Zk#-I #IiE//8B"4G@b@ZkXBG`b@Zk8B4G@b@Zk. JW JF>A8B"4G@b@Zk8B"4G@b@Zk8B"4G@b@ZkI _EIF/-H IEdk//`#;?&TG^~1" ^(~08`A! @޴HPX>`^h~px޵GH{G{(B#= =P "b@ZkpB4Gxb`"/@ZkbBGG"]"Gbs"/@Zk/$vHB`A `A ,A H`A <$.G"D"Q2J'J¥b8/ 4G//.JVJeF`>@5@FD/{HZDKG""tG[GbD?B/  = ///@Zk,H/(/// ("/ $,A0H'HA1@!!D/ //D.B4Gd"bRSJGJ/@Zk///,EH <$,$H/?$.$J%BG@d.dJN`///"/ .VJJVB֢F/> //$/bD#Y:KB'K4G/@Zk1,H%DX$D,/  %/D.$"QJ/@///XDF"@.JXF1".$/J1"zJY$K :G$?q/qK/_.PJ>1,1HC!B.Jd/dK"WvKJ[dKd?B""GtGb/@Zk,H/KGX""b#G2@0"/A=/G_"p""b#'@C4GGX""b#@>F.GFJFJ* /GF F/$@.1"JCBF//1"KCCXG/q/1"qKC@F/ 1,1"1HC'@F/ Q.1"QJ_.B4GbJC5B@Zk "///GG""b#@:F.GFJFJ* /GF F/$@.1"JCBF//1"KCCXG/q/1"qKC@F/ 1,1"1HC'@F/ Q.1"QJ_.J/B1":///GGh""b#@:F.GFJFJ* /GF F/$@.1"JCBF//1"KCCXG/q/1"qKC@F/ 1,1"1HC'@F/ Q.1"QJ_.J/w(B1":s///GG""b#[@:F.GFJFJ* /GF F/$@.1"JCBF//1"KCCXG/q/1"qKC@F/ 1,1"1HC'@F/ Q.1"QJ_.J/7B1":3///G_"@""b#@G""b#_"@@"A!/GGP""b# @:F.GFJFJ* /GF F/$@.1"JCBF//1"KCCXG/q/1"qKC@F/ 1,1"1HC'@F/ Q.1"QJ_.J/B1":///GG""b#@OGG""b#@GGH""b#@MGGH""b#@MGGx""b#@6F.GFJFJ* /GF F/$@.1"JCBF//1"KCCXG/q/1"qKC@F/ 1,1"1HC'@F/ Q.1"QJ_.J/1",GG""b#o@HG""b#Gi@/Ku/.BJFMҰm/G] ](}08@ݤHPX=`]h}pxݥ#k/0BG4G8b@Zk( GBGbB  G/@Zk0B&4G8b"@ZkBpTG'b@Zk0B4G4G8b@Zk(BGbBxh PD!( b^GG@Zk0B4G4G8b@Zk(BG GbB8 G@Zk0B&4G8b"@Zk/#GGtG~^^GG8[@b@@Zk/(BGGTG0b@ZkG]]@ #k49 HG d DECC$MAIN4: Lb#  DECC$MAIN49 `@ d DECC$MAIN4 xG DECC$EXIT4 b#  DECC$EXIT4 @ DECC$EXIT4 G  DECC$GETENV4 b#  DECC$GETENV4 @  DECC$GETENV4 G DDECC$GXFPRINTF4 $b# DECC$GXFPRINTF4 @@ DDECC$GXFPRINTF4 DG X DECC$GETENV4 Pb#  DECC$GETENV4 T@ X DECC$GETENV45 \G | DECC$STRSTR46 hb#  DECC$STRSTR45 x@ | DECC$STRSTR45 G  DECC$STRSTR46 b#  DECC$STRSTR 45 @  DECC$STRSTR4 G 4 DECC$ISDIGIT4 b#  DECC$ISDIGIT4 0@ 4 DECC$ISDIGIT4 b#  DECC$ISDIGIT4 G  DECC$ISDIGIT4 @  DECC$ISDIGIT4 G  DECC$ATOI4 b#  DECC$ATOI4 @  DECC$ATOI41 G (DECC$GXSPRINTF42 b# DECC$GXSPRINTF41 $@ (DECC$GXSPRINTF4 (G H DECC$GETENV4 4b#  DECC$GETENV4 D@ H DECC$GETENV4 HG d DECC$GETENV4 Tb#  DECC$GETENV4 `@ d DECC$GETENV4 dG  DECC$GETENV4 pb#  DECC$GETENV4 @  DECC$GETENV4 G  DECC$GETENV4 b#  DECC$GETENV4 @  DECC$GETENV43 pG  DECC$FREOPEN44 b#  DECC$FREOPEN43 @  DECC$FREOPEN4 G DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4/ 4G t SYS$CRELNM40 hb#  SYS$CRELNM4/ p@ t SYS$CRELNM47 xG  PERLSYSINIT348 b#  PERLSYSINIT347 @  PERLSYSINIT34 G  DECC$FFLUSH4 b#  DECC$FFLUSH4 @  DECC$FFLUSH4 G  DECC$FPUTS4 b#  DECC$FPUTS4 @  DECC$FPUTS4 G ( DECC$FFLUSH4 b#  DECC$FFLUSH4 $@ ( DECC$FFLUSH43 (G H DECC$FREOPEN44 @b#  DECC$FREOPEN43 D@ H DECC$FREOPEN4 lG DECC$GXFPRINTF4 tb# DECC$GXFPRINTF4 @ DECC$GXFPRINTFD G CMA$TIS_VMSERRNO_GET_ADDRD b# CMA$TIS_VMSERRNO_GET_ADDRD @ CMA$TIS_VMSERRNO_GET_ADDR4 G  DECC$EXIT4 b#  DECC$EXIT4 @  DECC$EXIT4 G  DECC$EXIT4 b#  DECC$EXIT4 @  DECC$EXITD G CMA$TIS_VMSERRNO_GET_ADDRD b# CMA$TIS_VMSERRNO_GET_ADDRD @ CMA$TIS_VMSERRNO_GET_ADDR4 G  DECC$EXIT4 b#  DECC$EXIT4 @  DECC$EXIT4 G ( DECC$EXIT4 b#  DECC$EXIT4 $@ ( DECC$EXIT4 dG DECC$GXFPRINTF4 hb# DECC$GXFPRINTF4 @ DECC$GXFPRINTF<# ` G | PERLPERSISTENGINE<$ d b# PERLPERSISTENGINE<# x @ | PERLPERSISTENGINE <% G PERLNONPERSISTENGINE<& b# PERLNONPERSISTENGINE<% @ PERLNONPERSISTENGINE<! G PERLONESHOTENGINE<" b# PERLONESHOTENGINE<! @ PERLONESHOTENGINE4 G DECC$EXIT4 b#  DECC$EXIT4 @ DECC$EXIT4 G  DECC$EXIT4 b#  DECC$EXIT4  @  DECC$EXIT4  G , DECC$GXFPRINTF4  b# DECC$GXFPRINTF4 ( @ , DECC$GXFPRINTF4 , G D DECC$EXIT4 8 b#  DECC$EXIT4 @ @ D DECC$EXIT4 G DECC$GXFPRINTF4 b# 8DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G  DECC$FPUTS4 b# 8 DECC$FPUTS4 @  DECC$FPUTS4 tG DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G LIB$GET_SYMBOL4 b# LIB$GET_SYMBOL4 @ LIB$GET_SYMBOL4 G ,LIB$GET_SYMBOL4 $b# LIB$GET_SYMBOL4 (@ ,LIB$GET_SYMBOL4 @G \DECC$GXFPRINTF4 Db# DECC$GXFPRINTF4 X@ \DECC$GXFPRINTF4 `G LIB$GET_SYMBOL4 b# LIB$GET_SYMBOL4 @ LIB$GET_SYMBOL4 G LIB$GET_SYMBOL4 b# LIB$GET_SYMBOL4 @ LIB$GET_SYMBOL4 G DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G $ DECC$GETENV4 b#  DECC$GETENV4 @ $ DECC$GETENV4 G DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 <G LDECC$GXFPRINTF4 Db# DECC$GXFPRINTF4 H@ LDECC$GXFPRINTF4 G LIB$GET_SYMBOL4 b# LIB$GET_SYMBOL4 @ LIB$GET_SYMBOL4 hG DECC$GXFPRINTF4 tb# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 $G DDECC$GXFPRINTF4 0b# DECC$GXFPRINTF4 @@ DDECC$GXFPRINTF4 G  DECC$TOUPPER4 b#  DECC$TOUPPER4 @  DECC$TOUPPER4 G  DECC$TOUPPER4 b#  DECC$TOUPPER4 @  DECC$TOUPPER4 0G TDECC$GXFPRINTF4 Lb# DECC$GXFPRINTF4 P@ TDECC$GXFPRINTF4 G DECC$GXFPRINTF4 b# DECC$GXFPRINTF 4 @ DECC$GXFPRINTF4 G  DECC$STRLEN4 b#  DECC$STRLEN4 @  DECC$STRLEN4 G  DECC$MALLOC4 b#  DECC$MALLOC4 @  DECC$MALLOC4 G  DECC$STRCPY4 b#  DECC$STRCPY4 @  DECC$STRCPY4 G 4DECC$GXFPRINTF4 $b# DECC$GXFPRINTF4 0@ 4DECC$GXFPRINTF4 DG tDECC$GXFPRINTF4 Pb# DECC$GXFPRINTF4 p@ tDECC$GXFPRINTF4 G  DECC$GETENV4 b#  DECC$GETENV4 @  DECC$GETENV4 G  DECC$FOPEN4 b#  DECC$FOPEN4 @  DECC$FOPEN4 G  DECC$FGETS4 b#  DECC$FGETS4 @  DECC$FGETS4 G  DECC$ISDIGIT4 b#  DECC$ISDIGIT4 @  DECC$ISDIGIT4 G DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G  DECC$ATOI4 b#  DECC$ATOI4 @  DECC$ATOI4 $G H DECC$FREAD4 @b#  DECC$FREAD4 D@ H DECC$FREAD4 PG x DECC$FGETS4 hb#  DECC$FGETS4 t@ x DECC$FGETS4 G  DECC$FGETS4 b#  DECC$FGETS4 @  DECC$FGETS4 G $DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ $DECC$GXFPRINTF4 @G dDECC$GXFPRINTF4 Xb# DECC$GXFPRINTF4 `@ dDECC$GXFPRINTF4 G  DECC$FFLUSH4 b#  DECC$FFLUSH4 @  DECC$FFLUSH4 G  DECC$FPUTS4 b#  DECC$FPUTS4 @  DECC$FPUTS4 G  DECC$FFLUSH4 b#  DECC$FFLUSH4 @  DECC$FFLUSH4 G  DECC$FPUTS4 b#  DECC$FPUTS4 @  DECC$FPUTS4 G  DECC$FFLUSH4 b#  DECC$FFLUSH4 @  DECC$FFLUSH4 G $ DECC$FPUTS4 b#  DECC$FPUTS4 @ $ DECC$FPUTS4 $G < DECC$FFLUSH4 (b#  DECC$FFLUSH4 8@ < DECC$FFLUSHD G CMA$TIS_VMSERRNO_GET_ADDRD b# CMA$TIS_VMSERRNO_GET_ADDRD @ CMA$TIS_VMSERRNO_GET_ADDR4 G  DECC$EXIT4 b#  DECC$EXIT4 @  DECC$EXITD G CMA$TIS_VMSERRNO_GET_ADDR D b# CMA$TIS_VMSERRNO_GET_ADDRD @ CMA$TIS_VMSERRNO_GET_ADDR4 G ( DECC$EXIT4 b#  DECC$EXIT4 $@ ( DECC$EXIT4 @G T DECC$EXIT4 Lb#  DECC$EXIT4 P@ T DECC$EXITD TG dCMA$TIS_VMSERRNO_GET_ADDRD \b# CMA$TIS_VMSERRNO_GET_ADDRD `@ dCMA$TIS_VMSERRNO_GET_ADDR4 dG x DECC$EXIT4 pb#  DECC$EXIT4 t@ x DECC$EXIT4 G  DECC$EXIT4 b#  DECC$EXIT4 @  DECC$EXIT4 G  DECC$EXIT4 b#  DECC$EXIT4 @  DECC$EXIT4 G  DECC$EXIT4 b#  DECC$EXIT4 @  DECC$EXIT4 tG DECC$GXFPRINTF4 b# DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G  DECC$GETENV4 b#  DECC$GETENV4 @  DECC$GETENV4+ G LIB$GET_FOREIGN4, b# LIB$GET_FOREIGN4+ @ LIB$GET_FOREIGN4 b# DECC$GXFPRINTF4 G DECC$GXFPRINTF4 @ DECC$GXFPRINTF4- $ G D DECC$ISSPACE4. 0 b#  DECC$ISSPACE4- @ @ D DECC$ISSPACE4. b#  DECC$ISSPACE4- G ! DECC$ISSPACE4- !@ ! DECC$ISSPACE4 !G "DECC$GXFPRINTF4 "b# DECC$GXFPRINTF4 "@ "DECC$GXFPRINTF4 H#G d# DECC$ATOI4 P#b#  DECC$ATOI4 `#@ d# DECC$ATOI4 )G ) DECC$EXIT4 )b#  DECC$EXIT4 )@ ) DECC$EXIT4 *G $*DECC$GXFPRINTF4 *b# DECC$GXFPRINTF4 *@ $*DECC$GXFPRINTF4 $*G <* DECC$EXIT4 0*b#  DECC$EXIT4 8*@ <* DECC$EXIT4 <*G T* DECC$FPUTS4 L*b#  DECC$FPUTS4 P*@ T* DECC$FPUTS4 T*G h* DECC$EXIT4 `*b#  DECC$EXIT4 d*@ h* DECC$EXIT4 l*G *DECC$GXFPRINTF4 x*b# DECC$GXFPRINTF4 *@ *DECC$GXFPRINTF4 *G * DECC$EXIT4 *b#  DECC$EXIT4 *@ * DECC$EXIT4 *G *DECC$GXFPRINTF4 *b# DECC$GXFPRINTF4 *@ *DECC$GXFPRINTF4 *G * DECC$EXIT4 *b#  DECC$EXIT4 *@ * DECC$EXIT<) (+G 8+DECC$STRNCASECMP<* ,+b# DECC$STRNCASECMP <) 4+@ 8+DECC$STRNCASECMP4' @+G X+DECC$STRCASECMP4( P+b# DECC$STRCASECMP4' T+@ X+DECC$STRCASECMP & = !CGIPLUS: struct =(Content-Type: text/plain  8= VarName |%s|%s|  P= StructLength %d  h= NextVarNamePtr |%s|  = PERLRTE$NOSYMBOLS =(lib$get_symbol %%X%08.08X  =0&Status: 204 RTE Proctor Response  = ProctorDetect()  =H>%%%s-E-BUGCHECK, no "SCRIPT_FILENAME" ProcessRequest() %d  8=8.%%%s-E-IVQUAL, unrecognized qualifier \%s\  h=0'Copyright (C) 2000-2023 Mark G.Daniel =0"%%%s-I-VERSION, %s Perl %s %s %s =paLicensed under the Apache License, Version 2.0 (the "License"); you may not use this software except in compliance with the License. A copy is available at ... http://www.apache.org/licenses/LICENSE-2.0 Software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  =8)%%%s-E-IVPARM, invalid parameter \%s\  P=GetParameters() < =0 ; ;= CGIPLUSIN 0 DECC$STRLEN DECC$STRCPY DECC$FREAD7 CGIPLUSEOTPTR7DEBUG= CGI |NULL|  =CgiVar() |%s|  DECC$GETENV DECC$TOUPPER7DECC$$GL___CTYPEA  DECC$FPUTS7DECC$$GA___CTYPET  LIB$GET_SYMBOL7 ISCGIPLUS DECC$GXFPRINTF7DECC$GA_STDOUT=0" @;=X? ;7 CGIVARDEBUG ; DECC$EXIT DECC$FFLUSH(CMA$TIS_VMSERRNO_GET_ADDR DECC$FGETS= CGIplus |NULL|  =CGIplus |%s|  =|%s|  =NULL  DECC$ATOI DECC$ISDIGIT7 CGIPLUSESCPTR  DECC$FOPEN DECC$MALLOC=r (=CgiPlusIn %u  8=0" P ;=@1 $ REQUEST_METHODSERVER_SOFTWARE =0" 0;= $ 7CLIPERLSOURCEPTR7 USAGECOUNT7CLIPERLSWITCHPTR= SCRIPT_FILENAME  !PERLONESHOTENGINE ;; #PERLPERSISTENGINE %PERLNONPERSISTENGINE;=0" +;= $  @ 'DECC$STRCASECMP )DECC$STRNCASECMP= /PACKAGE p= /PERL=/ENOUGH= =/HASH=7PACKAGEEMBEDPERSIST;= /NOPERSIST = /VERSION = clptr |%s|   +LIB$GET_FOREIGN= aptr |%s|  - DECC$ISSPACE7 CLICGIPREFIX;;7 CLINOSOCKET=0  ;=` ;;7CLICLEAN7 CLINOPERLEX7 CLIPERLDEBUG= /NOSOCKET x= /CLEANPERLRTE$PARAM =/DBUG = /TYPE=/WWWPREFIX ;= /NOPERLEX =/ENV= =/HASHCGIPLUS= = /PDEBUG = ctx=bin / SYS$CRELNM= CGIPLUSESC =w (= UsageCount: %d  @= H=perl P1DECC$GXSPRINTF= PERL_ROOT p7 PERLSHRPTR= CGIPLUSEOF 3 DECC$FREOPEN7 CGIPLUSEOFPTR=0" ;=D 7 DECC$GA_STDIN7 PERLROOTPTR 5 DECC$STRSTR= PERLSHR =PERL =PERLRTE$DBUG =5.%d = SYS$OUTPUT: 07 PERLSYSINIT3= ctx=rec P= HTTP$INPUT: `= CGIPLUSEOT p= |%.*s|  =08" ;=P0 7DECC$$SHELL_HANDLER=9 DECC$MAIN  =`VAUTH_ACCESS,AUTH_AGENT,AUTH_GROUP,AUTH_PASSWORD,AUTH_REALM,AUTH_REALM_DESCRIPTION,AUTH_REMOTE_USER,AUTH_TYPE,AUTH_USER,CONTENT_LENGTH,CONTENT_TYPE,DOCUMENT_ROOT,GATEWAY_BG,GATEWAY_EOF,GATEWAY_EOT,GATEWAY_ESC,GATEWAY_INTERFACE,GATEWAY_MRS,HTTP_ACCEPT,HTTP_ACCEPT_CHARSET,HTTP_ACCEPT_ENCODING,HTTP_ACCEPT_LANGUAGE,HTTP_AUTHORIZATION,HTTP_CACHE_CONTROL,HTTP_COOKIE,HTTP_FORWARDED,HTTP_HOST,HTTP_IF_NOT_MODIFIED,HTTP_PRAGMA,HTTP_REFERER,HTTP_USER_AGENT,HTTP_X_FORWARDED_FOR,PATH_INFO,PATH_ODS,PATH_TRANSLATED,QUERY_STRING,REMOTE_ADDR,REMOTE_HOST,REMOTE_PORT,REMOTE_USER,REQUEST_CHARSET,REQUEST_CONTENT_TYPE,REQUEST_METHOD,REQUEST_SCHEME,REQUEST_TIME_GMT,REQUEST_TIME_LOCAL,REQUEST_URI,SCRIPT_FILENAME,SCRIPT_NAME,SCRIPT_RTE,SERVER_ADMIN,SERVER_ADDR,SERVER_CHARSET,SERVER_GMT,SERVER_NAME,SERVER_PROTOCOL,SERVER_PORT,SERVER_SOFTWARE,SERVER_SIGNATURE,UNIQUE_IDHTTPS,SSL_PROTOCOL,SSL_SESSION_ID,SSL_CIPHER,SSL_CIPHER_EXPORT,SSL_CIPHER_USEKEYSIZE,SSL_CIPHER_ALGKEYSIZE,SSL_CLIENT_M_VERSION,SSL_CLIENT_M_SERIAL,SSL_CLIENT_S_DN,SSL_CLIENT_S_DN_x509,SSL_CLIENT_I_DN,SSL_CLIENT_I_DN_x509,SSL_CLIENT_V_START,SSL_CLIENT_V_END,SSL_CLIENT_A_SIG,SSL_CLIENT_A_KEY,SSL_CLIENT_CERT,SSL_SERVER_M_VERSION,SSL_SERVER_M_SERIAL,SSL_SERVER_S_DN,SSL_SERVER_S_DN_x509,SSL_SERVER_I_DN,SSL_SERVER_I_DN_x509,SSL_SERVER_V_START,SSL_SERVER_V_END,SSL_SERVER_A_SIG,SSL_SERVER_A_KEY,SSL_SERVER_CERT,SSL_VERSION_INTERFACE,SSL_TLS_SNI,SSL_VERSION_LIBRARY,SECURITY_STATUS,SSL_CIPHER,SSL_CIPHER_KEYSIZE,SSL_CLIENT_CA,SSL_CLIENT_DN,SSL_SERVER_CA,SSL_SERVER_DN,SSL_VERSION,AUTH_X509_CIPHER,AUTH_X509_FINGERPRINT,AUTH_X509_ISSUER,AUTH_X509_KEYSIZE,AUTH_X509_SUBJECT X=X 4=X 4=4=4=X04=4=4= = h4=x4 ==-%$PERLRTEVSI C V7.4-002 ?=  4=TRANSFER$BREAK$GO )=  4 4= main 4= lk lk lk lk lk k k k k k k k k k k k k k k k k k k k k k k k k k k k k k  k k7 k kH k =  E=  04 4=ProcessRequest 04= k k  k  l l l  l l l l l l lQ l l l l l$ l l$ =   =  P 4 84= ProctorDetect P 4=PHG =l 2l  2l  ?l Cl Cl =  K=  @4 4= CgiVar @4= \l# \l# \l# \l" \l" l l l l l l l l l l l l l l l l l  l  l l l l l l l l l l l l l l l l l l l l l l l l l l l l l l< l l  m m m m #m "m "m "m$ m  +m 2m 3m 3m  @m Dm Jm Am Hm Am  Am  Am  Am  Nm Pm Tm Wm Wm [m _mQ emL l! m  Hm :=   4= l =  :=   4= l =  =  |=  4 4=DclSymbolNames 4= m =  s=  4 4= GetParameters 4=  m  m  m  m m m  m m m m Dn  Pn >n, m m m m m m m m m m m m m m n .n{ in mP m? n3 ^n ^n  kn =  =  +4 4= strsame +4=0(' {n  {n  n n = t s=  4 4= __main 4= lk =  |e4e4 =   DECC$ISDIGIT DECC$ISSPACE DECC$TOUPPER DECC$$GA___CTYPET DECC$$GL___CTYPEA(CMA$TIS_VMSERRNO_GET_ADDR DECC$GA_STDINDECC$GA_STDOUT DECC$FREAD DECC$FFLUSHDECC$GXFPRINTF DECC$FPUTSDECC$GXSPRINTF DECC$FOPEN DECC$FREOPEN DECC$FGETS DECC$ATOI DECC$EXIT DECC$GETENV DECC$MALLOC DECC$STRCPY DECC$STRSTR DECC$STRLENDECC$STRCASECMP DECC$STRNCASECMPLIB$GET_FOREIGNLIB$GET_SYMBOL SYS$CRELNM PACKAGEEMBEDPERSIST PERLSYSINIT3 PERLNONPERSISTENGINE PERLONESHOTENGINE PERLPERSISTENGINE DECC$MAIN DECC$$SHELL_HANDLER  C$IS