E PERLRTENGV1.021-MAY-2023 08:21 VSI C V7.4-002  $READONLY$iL$CODE$y $LITERAL$H$LINK$  PACKAGEEMBEDPERSIST $BSS$$DATA$0J SETCGIENV8J` PERLNONPERSISTENGINE8J@ PERLONESHOTENGINE8J PERLPERSISTENGINE(J@XSINIT8 PACKAGEEMBEDPERSIST0J  PERLSYSINIT3 @6= =0(;TG "8{k//#{p"P^~GGX^`~6FhpxGGG0[8b0DX8"0~@TG@ZkPBc "4GXb @ZkpBCbG4"HBxb/@Zk"""TG0B8b///@ZkBGb@Zk$"TGB0B 8b2"/@ZkB4Gb@Zk"4G ,A H <`C.CJ@ }TG4}0`B`Ģ#0BSxB""#WBXx@4G0B3w8bTG0""@ZkpBG}"GGxb0"@Zk$G8""0BG8btG ///@Zk`d""0B8bTG`@Zk B4G(b/@Zk"G8""0BG8btG/@Zk`b4Gb#v@Ӱ" @"c0=TG@b"0BD=aD8b@8"D} @Zk"BtG]" bb "G@ZkBGTGb/@ZkGTGBb0/ G@Zk $BTGbDP2/ G//@Zk@B4Gb@ZkBGTGb0 G@Zk(c%@CC1C!D"!N$H2CD@B@s/FuBGTGb@ZkDj/#BTGb!GG@Zk TGBbG0H/S0/ G@ZkBTGbVH/S01/ G//@Zk TGBbG20 G@ZkBTGb7@01/ G//@Zk TGBbG0 G/@Zk,HD////Gb#@4GGP]X]`}hpx#k///BTGbP2 G@Zk@H$ W//BGTGb@ZkIBTGb01 G@Zk TGBbGvH!0 G/@ZkBTGbH01 G/@Zk H4G/#BGTGbA/G@Zk@BGTGb@ZkG/BTGb00 G@Zk ?$BTGb! F!  0Q8=@G/@Zk TG#Bb1110!A@=@G@Zk !//BTGbP2H]/ G//@Zk@BtG"bTG@ZkGb0BGG8bBG#"@ZkG /0BG""GG8b 0`@@Zk/B%"TGb@ZkG///0BG4G8b@Zk0BG4G8b@Zk//#{h"^~GG ^(~5F08@޴HGGGG(4"G[GbE@W//@Zk( ¤&5@?@D.JFEbB@TG""b@ZkXBG`b@ZkTG(%bBBb8F  3"@ZkB4Gb@Zkp.PJ>4G""=.J TGB0`B#SxBX@BsTG""b@Zk(BG}"GG0b"@Zk"G""BGbtG@Zk`4GbPb#@BTGH""b@ZkB4Gb/@ZkTGbBb "@Zk8B4G@bb@ZkB""TGb////@ZkXBG`bb@Zk"TGBb!"/@ZkBp4Gb@Zk,4GEH<G] ](}08@ݤHP#k///#8{G" ^~5F(^0~8G@HGG@ Gp[xbDG7"@^/@Zk8"@""TGpBxb@ZkBGb@Zk$ BGTG8pBxb 2"@Zk BG4G(b@Zk0"4G ,A H <`C.CJ@ }TG8BĢ0`B"SwBWw@pBP""TGxb@ZkBGG}"GGbp"/@Zk$8Gx""pBGxbtG /@Zk`4Gb#O@d8""TGpBxb`@Zk`BG4Ghb@Zk TG8bpBxb "@ZkB =|tG4Gb@ZkG ](]4G0}8@HP#/k///{#TG^~[s ^(GG >8;"^` b/@Zk(tG =]G0b] ](0#k///#H[`G^~ ^(~08@޴HX[;PX>`^h~pGh{G#{Bb `2"^a@ZkX"4GTGHBPbC@Zk" TGHBPb!G4G/@Zk "8B4G@b`"@Zk=G (¤/{ ///BGx""btG@Zk. GJJ+//F E/$i.)!iJCgBF/`.)!JCBG/)/)!)KC'CyG/ ),)!)HC@ F/I.)!IJfHB*$AGF2$AtGbH8"`@Zk" DehBGTGpb . JC 0AG@ZkBGGGGGGGb@ZkehBGGpbTG/@ZkBGGGGGGGb@Zk8B4G@b"/@ZkGi`" b(B#BGx""btG/ @Zk,GHH*/DE/$(.!(JC'BqF/ .!JCBF/.!JCB7G/ H/!HKCGCD/,!H jHB'A2AFGtGbH5"`@ZkB GGGGGGb/@ZkB GGGGGGb@Zk8B4G@b"/@ZkG//G] ](}08@ݤHPX=`]h}p#/k///@G8;TG#~^p[^GG(;"xb@Zk BPGtGXb`"]](" #k// SPtGXs`3("k4G PERL_CROAK4{# PERL_CROAK4 PERL_CROAK4lGDECC$GXFPRINTF4pb#DECC$GXFPRINTF4@DECC$GXFPRINTF4%G DECC$MALLOC4&b# DECC$MALLOC4%@ DECC$MALLOC4'GDECC$GXSPRINTF4(b#DECC$GXSPRINTF4'@DECC$GXSPRINTF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G$ PERL_ALLOC4b# PERL_ALLOC4 @$ PERL_ALLOC44GTDECC$GXFPRINTF4Db#DECC$GXFPRINTF4P@TDECC$GXFPRINTF4TGhPERL_CONSTRUCT4`b#PERL_CONSTRUCT4d@hPERL_CONSTRUCT4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G PERL_PARSE4b# PERL_PARSE4@ PERL_PARSE4,GTDECC$GXFPRINTF44b#DECC$GXFPRINTF4P@TDECC$GXFPRINTF4dG|DECC$GXFPRINTF4hb#DECC$GXFPRINTF4x@|DECC$GXFPRINTF4|GPERL_RUN4b#PERL_RUN4@PERL_RUN4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G8DECC$GXFPRINTF4b#DECC$GXFPRINTF44@8DECC$GXFPRINTF4-<G\PERL_CALL_ARGV 4.Lb#PERL_CALL_ARGV4-X@\PERL_CALL_ARGV<!`GPERL_GV_ADD_BY_TYPE<"lb#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE4G PERL_MG_GET4 b# PERL_MG_GET4@ PERL_MG_GET<! GDPERL_GV_ADD_BY_TYPE<",b#PERL_GV_ADD_BY_TYPE<!@@DPERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!G<PERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!8@<PERL_GV_ADD_BY_TYPE<!@GPERL_GV_ADD_BY_TYPE<"Hb#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GDPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@@DPERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!G(PERL_GV_ADD_BY_TYPE<" b#PERL_GV_ADD_BY_TYPE<!$@(PERL_GV_ADD_BY_TYPE<!DGdPERL_GV_ADD_BY_TYPE<"Lb#PERL_GV_ADD_BY_TYPE<!`@dPERL_GV_ADD_BY_TYPE<!pGPERL_GV_ADD_BY_TYPE<"tb#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!G<PERL_GV_ADD_BY_TYPE<" b#PERL_GV_ADD_BY_TYPE<!8@<PERL_GV_ADD_BY_TYPE<@GXPERL_SV_2BOOL_FLAGS<Lb#PERL_SV_2BOOL_FLAGS<T@XPERL_SV_2BOOL_FLAGS<!lGPERL_GV_ADD_BY_TYPE<"tb#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!GPERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!@PERL_GV_ADD_BY_TYPE<!G( PERL_GV_ADD_BY_TYPE<"b#PERL_GV_ADD_BY_TYPE<!$ @( PERL_GV_ADD_BY_TYPE <!D Gt PERL_GV_ADD_BY_TYPE<"L b#PERL_GV_ADD_BY_TYPE<!p @t PERL_GV_ADD_BY_TYPE<+x G PERL_SV_2PV_FLAGS<, b#PERL_SV_2PV_FLAGS<+ @ PERL_SV_2PV_FLAGS4 G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4) G DECC$FPUTS4* b# DECC$FPUTS4) @ DECC$FPUTS4#0 GD DECC$EXIT4$< b# DECC$EXIT4#@ @D DECC$EXIT4#D GX DECC$EXIT4$P b# DECC$EXIT4#T @X DECC$EXIT4 G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G8 DECC$GXFPRINTF40 b#DECC$GXFPRINTF44 @8 DECC$GXFPRINTF48 GH PERL_ALLOC4@ b# PERL_ALLOC4D @H PERL_ALLOC4` G DECC$GXFPRINTF4d b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G PERL_CONSTRUCT4 b#PERL_CONSTRUCT4 @ PERL_CONSTRUCT4 G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G, PERL_PARSE4 b# PERL_PARSE4( @, PERL_PARSE4< GX DECC$GXFPRINTF4D b#DECC$GXFPRINTF4T @X DECC$GXFPRINTF4p G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G PERL_RUN4 b#PERL_RUN4 @ PERL_RUN4 G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G PERL_DESTRUCT4 b# PERL_DESTRUCT4 @ PERL_DESTRUCT4 G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G( PERL_ALLOC4 b# PERL_ALLOC4$ @( PERL_ALLOC44 GT DECC$GXFPRINTF4D b#DECC$GXFPRINTF4P @T DECC$GXFPRINTF4T Gl PERL_CONSTRUCT4d b#PERL_CONSTRUCT4h @l PERL_CONSTRUCT4 G$DECC$GXFPRINTF4 b#@DECC$GXFPRINTF4 @$DECC$GXFPRINTF44GHDECC$GXFPRINTF48b#@DECC$GXFPRINTF4D@HDECC$GXFPRINTF4HGX PERL_ALLOC4Pb#@ PERL_ALLOC 4T@X PERL_ALLOC4lGDECC$GXFPRINTF4pb#@DECC$GXFPRINTF4@DECC$GXFPRINTF4GPERL_CONSTRUCT4b#@PERL_CONSTRUCT4@PERL_CONSTRUCT4G DECC$GXFPRINTF4b#@DECC$GXFPRINTF4@ DECC$GXFPRINTF4 G4 PERL_PARSE4$b#@ PERL_PARSE40@4 PERL_PARSE4DGdDECC$GXFPRINTF4Lb#@DECC$GXFPRINTF4`@dDECC$GXFPRINTF4GDECC$GXFPRINTF4b#@DECC$GXFPRINTF4@DECC$GXFPRINTF4GPERL_RUN4b#@PERL_RUN4@PERL_RUN4GDECC$GXFPRINTF4b#@DECC$GXFPRINTF4@DECC$GXFPRINTF4G PERL_DESTRUCT4b#@ PERL_DESTRUCT4@ PERL_DESTRUCT48GtDECC$GXFPRINTF4hb#DECC$GXFPRINTF4p@tDECC$GXFPRINTF4tGPERL_SYS_INIT34b#PERL_SYS_INIT34PERL_SYS_INIT34G<DECC$GXFPRINTF4 b#DECC$GXFPRINTF48@<DECC$GXFPRINTF4 LGh PERL_GET_HV4Pb# PERL_GET_HV4 d@h PERL_GET_HV4 tG PERL_GET_HV4xb# PERL_GET_HV4 @ PERL_GET_HV, GCGIVAR, b#CGIVAR, @CGIVAR4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF,GSTRSAME,b#STRSAME,@STRSAME4G, PERL_NEWSVPV4b# PERL_NEWSVPV4(@, PERL_NEWSVPV< ,GTPERL_HV_COMMON_KEY_LEN< Lb#PERL_HV_COMMON_KEY_LEN< P@TPERL_HV_COMMON_KEY_LEN4XGt PERL_NEWSVPV4db# PERL_NEWSVPV4p@t PERL_NEWSVPV< tGPERL_HV_COMMON_KEY_LEN< b#PERL_HV_COMMON_KEY_LEN< @PERL_HV_COMMON_KEY_LEN, GCGIVAR, b#CGIVAR, @CGIVAR4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF,GSTRSAME,b#STRSAME,@STRSAME< GPERL_HV_COMMON_KEY_LEN< b#PERL_HV_COMMON_KEY_LEN< @PERL_HV_COMMON_KEY_LEN< G<PERL_HV_COMMON_KEY_LEN< 4b#PERL_HV_COMMON_KEY_LEN < 8@<PERL_HV_COMMON_KEY_LEN, <GTCGIVAR, Db#CGIVAR, P@TCGIVAR4GDECC$GXFPRINTF4b#@DECC$GXFPRINTF4@DECC$GXFPRINTF4G( PERL_NEWXS4b#@ PERL_NEWXS4$( PERL_NEWXS44GL PERL_NEWXS4<s#@ PERL_NEWXS4HL PERL_NEWXS =0#WASD_ROOT:[src.perl]perlrteng.c;1(=(DynaLoader::boot_DynaLoaderH= GATEWAY_INTERFACE`=(SetCgiEnv() %d %d |%s|%s| = perl_destruct() = perl_contruct() =(PerlOneShotEngine() |%s|%s| =0$PerlNonPersistEngine() %d |%s|%s| =0&%%%s-E-CALLARGV, %s-CALLARGV-E-ARGS, =(Embed::Persist::eval_file@= perl_call_argv() X=)!PerlPersistEngine() %d |%s|%s| D =0; =%s(7PL_MEMORY_WRAP PERL_CROAK=0 ;= 4 ;= XsInit() x7DECC$GA_STDOUT7DEBUG PERL_NEWXS7BOOT_DYNALOADERDECC$GXFPRINTF7 CLICGIPREFIX= =CGI-PerlExSTRSAME7 CLICGIPLUSHASHNAMEPTR=* PERL_HV_COMMON_KEY_LEN7 CLINOPERLEX=0 ;=P ;7 ISCGIPLUSP CGIVAR PERL_GET_HV7CLICGIHASHNAMEPTR PERL_NEWSVPV=|%s| =0  ;=0, PERL_SYS_INIT3= PerlSysInit3()  PERL_PARSE PERL_DESTRUCT= perl_run()   PERL_ALLOC=(null)7 PL_PERL_DESTRUCT_LEVEL=0 " ;=P8< PERL_CONSTRUCT= PERLRTENG=perl_alloc() =perl_parse() PERL_RUN@;= status: %d =0"` ;=P@| ;7 USAGECOUNT PERL_SV_2BOOL_FLAGS PERL_MG_GET= (7UTILITY7CLICLEAN=-e@7 PERLVERSION;7 CLIPERLDEBUG=0`7PL_NAp !PERL_GV_ADD_BY_TYPE=0P" ;=<< 7PL_ERRGV7PL_SV_IMMORTALS# DECC$EXIT=17 SOFTWAREID% DECC$MALLOC7 PL_ORIGALEN'DECC$GXSPRINTF= [%d]%s) DECC$FPUTS +PERL_SV_2PV_FLAGS-PERL_CALL_ARGV=  = package Embed::Persist; use strict; use vars '%%Cache'; use Symbol qw(delete_package); $Embed::perlRTEcount = 0; $Embed::debug = undef; sub valid_package_name { my($string) = @_; $string =~ s/([^A-Za-z0-9\/])/sprintf("_%%2x",unpack("C",$1))/eg; # second pass only for words starting with a digit $string =~ s|/(\d)|sprintf("/_%%2x",unpack("C",$1))|eg; # Dress it up as a real package name $string =~ s|/|::|g; return "Embed" . $string; } sub eval_file { $Embed::perlRTEcount++; my ($filename, $delete, $debug) = @_; my $package = valid_package_name($filename); if ($debug) { printf ("DEBUG: \$package |$package|\n"); } my $wasd = 0; my $mtime = -M $filename; if ($debug) { printf ("DEBUG: file:$mtime cache:$Cache{$package}{mtime}\n"); } if (defined $Cache{$package}{mtime} && $Cache{$package}{mtime} == $mtime) { # we have compiled this subroutine already, if ($debug) { printf ("DEBUG: package cached\n"); } $main::perlRTEcache++; $wasd = $Cache{$package}{wasd}; } else { local *FH; open FH, $filename or die "open '$filename' $!"; local($/) = undef; my $sub = ; close FH; $wasd = substr($sub,0,6) eq "#WASD#"; if ($wasd) { $| = 1; print "Content-type: text/plain\n\n"; } # wrap the code into a subroutine inside our unique package my $eval = qq{package $package; sub handler { $sub; }}; { # hide our variables within this block my($filename,$mtime,$package,$sub); eval $eval; } die $@ if $@; if ($debug) { printf ("DEBUG: eval package\n"); } $Cache{$package}{mtime} = $mtime; $Cache{$package}{wasd} = $wasd; $wasd = 0; $main::perlRTEcache = 0; $main::perlRTEversion = "%s %s"; } # set these global variables for script use/abuse $main::perlRTEcount = $Embed::perlRTEcount; $main::perlRTEdebug = $debug; $main::perlRTEpersist = !$delete; # make STDOUT autoflush (became necessary with v5.10.0) $| = 1; if ($wasd) { print "Content-type: text/plain\n\n"; } eval {$package->handler;}; die $@ if $@; $delete = !$main::perlRTEpersist if !$delete; if ($delete) { if ($debug) { printf ("DEBUG: delete_package($package)\n"); } delete_package($package); delete $Cache{$package}{mtime}; delete $Cache{$package}{wasd}; } else { if ($debug) { printf ("DEBUG: package kept\n"); } } } 1; __END__ $=  ?=/'& PERLRTENGVSI C V7.4-002 +='set_regex_charset =  +='get_regex_charset =  $=  CvNAME_HEK =  -=)! zaphod32_seed_state =  2=.&%zaphod32_hash_with_state =  '=# zaphod32_hash =  -=)! sbox32_seed_state96 =  .=*"!sbox32_seed_state128 =  0=,$#sbox32_hash_with_state =  '=# sbox32_hash96 =  (=$sbox32_hash128 =  +='stadtx_seed_state =  0=,$#stadtx_hash_with_state =  %=! stadtx_hash =  /=+#"S_perl_hash_with_seed =  3=/'&S_perl_siphash_seed_state =  <=80/"S_perl_hash_siphash_1_3_with_state =  1=-%$S_perl_hash_siphash_1_3 =  <=80/"S_perl_hash_siphash_2_4_with_state =  1=-%$S_perl_hash_siphash_2_4 =  (=$S_av_top_index =  =S_CvGV =  $=  S_CvDEPTHp =  #= S_TOPMARK =  #= S_POPMARK =  !=S_ReANY =  (=$S_SvREFCNT_inc =  +='S_SvREFCNT_inc_NN =  -=)! S_SvREFCNT_inc_void =  (=$S_SvREFCNT_dec =  +='S_SvREFCNT_dec_NN =  %=! SvAMAGIC_on =  &=" SvAMAGIC_off =  )=%S_SvPADSTALE_on =  *=&S_SvPADSTALE_off =  =  44=!S_croak_memory_wrap4= , =  8=4,+S_append_utf8_from_native_byte =  2=.&%Perl_valid_utf8_to_uvchr =  8=4,+S_is_utf8_invariant_string_loc =  0=,$#S__variant_byte_number =  0=,$#S_is_utf8_string_flags =  4=0('Perl_is_utf8_string_loclen =  '=# S_isUTF8_CHAR =  .=*"!S_isSTRICT_UTF8_CHAR =  1=-%$S_isC9_STRICT_UTF8_CHAR =  8=4,+S_is_strict_utf8_string_loclen =  :=6.- S_is_c9strict_utf8_string_loclen =  7=3+*S_is_utf8_string_loclen_flags =  ,=( Perl_utf8_distance =  '=# Perl_utf8_hop =  /=+#"Perl_utf8_hop_forward =  ,=( Perl_utf8_hop_back =  ,=( Perl_utf8_hop_safe =  <=80/"S_is_utf8_valid_partial_char_flags =  @=<43&S_is_utf8_fixed_width_buf_loclen_flags =  /=+#"S_utf8n_to_uvchr_msgs =  +='S_is_safe_syscall =  0=,$#get_regex_charset_name =  0=,$#S_sv_only_taint_gmagic =  (=$S_cx_pushblock =  '=# S_cx_popblock =  '=# S_cx_topblock =  &=" S_cx_pushsub =  ,=( S_cx_popsub_common =  *=&S_cx_popsub_args =  %=! S_cx_popsub =  )=%S_cx_pushformat =  (=$S_cx_popformat =  '=# S_cx_pusheval =  &=" S_cx_popeval =  -=)! S_cx_pushloop_plain =  +='S_cx_pushloop_for =  &=" S_cx_poploop =  '=# S_cx_pushwhen =  &=" S_cx_popwhen =  (=$S_cx_pushgiven =  '=# S_cx_popgiven =  %=! Perl_foldEQ =  ,=( Perl_foldEQ_latin1 =  ,=( Perl_foldEQ_locale =  Z=  44=PerlPersistEngine 4=??????? ????Ѐ????????????????????? ^0???????? = @ q= !` 44="PerlNonPersistEngine` 4=????????? @ @r @ @@@@@@@4 = P <=  4@4=PerlOneShotEngine 4=*@*@*@*@*@*@ 9@@@D@I@FI@J@I@L@ Y@( = p =  44= PerlSysInit3 4=UMLl@a@ a@ a@ a@ n@n@ =  = 44= SetCgiEnv4=YQ|@ |@|@|@@@@@@@@@@@ @@@@@@@H@K @@@@@ (@L =  = 4@4= XsInit4=SKJ@@@@@ @@( =  =   DECC$EXIT DECC$MALLOCDECC$GA_STDOUTDECC$GXFPRINTF DECC$FPUTSDECC$GXSPRINTF PL_UTF8SKIPPL_MEMORY_WRAPPL_FOLDPL_FOLD_LATIN1PL_FOLD_LOCALEPERL_CALL_ARGV PERL_CROAK PERL_GET_HV PERL_GV_ADD_BY_TYPE PERL_HV_COMMON_KEY_LEN PERL_MG_GET PERL_NEWSVPV PERL_NEWXS PERL_ALLOCPERL_CONSTRUCT PERL_DESTRUCT PERL_PARSEPERL_RUN PERL_SV_2BOOL_FLAGS PERL_SV_2PV_FLAGSPERL_SYS_INIT3 PL_STACK_SPPL_OP PL_CURPAD PL_STACK_BASE PL_SCOPESTACK_IX PL_TMPS_IX PL_TMPS_FLOOR PL_MARKSTACK PL_MARKSTACK_PTRPL_CURPM PL_IN_EVALPL_DEFGV PL_CURCOPPL_CURSTACKINFO PL_COMPPADPL_SV_IMMORTALS PL_PARSERPL_NA PL_DEFOUTGV PL_TOP_ENVPL_ERRGV PL_EVAL_ROOT PL_ORIGALEN PL_PERL_DESTRUCT_LEVEL(PL_EXTENDED_UTF8_DFA_TAB PL_STRICT_UTF8_DFA_TAB PL_C9_UTF8_DFA_TABCLICLEAN CLICGIPREFIX CLINOPERLEX CLIPERLDEBUGDEBUG ISCGIPLUS USAGECOUNT CLICGIHASHNAMEPTR CLICGIPLUSHASHNAMEPTR PERLVERSION SOFTWAREIDUTILITYCGIVARSTRSAMEBOOT_DYNALOADER C$EX