ELF 2 c@@0 à°¨±)aþÀ/¡0 à °¨±)±ªaÊÀ0 à °¨±)±ªaöÀ0°£±$a"0°©±*±«a˜0°¢±#a(€@€ ` €Ð Ðp&¸p&`'Ø1IPF/VMS22-MAY-2023 09:2222-MAY-2023 09:22PERLRTENGV1.0IPF/VMSVSI C V7.4-001IPF/VMS€ ÿÿÿÿÿÿÿÿHA€ HÀ ! ˆ0 àÁp€pÀ<BÄ@D B@âÀCP$H@â P$0  P$  (, HX CXB!(@ ˆ$°D0 $)HàX„`$à€B P„X!P T! $@Œ †8ÐCÈ$°(HPT!!H`@„ (!àH  `$à¸0  hZÀ°0 P0D¨Bà0â€`C8$@H # 8NÀ0  8N`8YP T! È$P0D¨Bà0â F€`C $0H # H0 0  `!@ °,P T!XF H`XYPT!p‚0B€ 8„€80HÀ `˜0  ˜N #€PC @B@PH8€0CHP!@H „¨$ Bà 0 H!PT0 € YX@! (,€0Y ¸.@"-"@@¡XD€ˆD` H`AYD€ TH() #`ˆâ°\ £`CÀ$H À0Àd0 # À0`ÀXP T!XF)Hà„`$à‚0B 0Y`X°¬,PDp B P„8B€8€pC $PH 3 HP”0  @X `J!@ @,` „P T!N†8 C 0Dp˜q€pC$@H # B@0  `H!„ „,`„P T!XF H`XYP8DP B P„8N€8€pC0$H 3 0L„0  @X `B!`˜ `˜,`0„P T!p” ¨€ CX$P $0Hà D@0 ÀFPHAa„ N`˜0 a„ H0Œ „ ‰H Œ q@Áa„ (Jq#0„X`!ˆñc(„ „% #, £`Cˆ$ H # ˆ"ÀH0  ˆ"`ˆXP T!È $Ђ0B€XXÀbHP T!0H F°Œ À¬,€a„ 0ÁYà0Y (Np(q÷ÀX@XX!H€P@@!¨B @à@X 0N0 qÀ0Y C!è@0!L!p` áM @ @ˆ8’h€0CÈ$°˜BP T!‘¤ª@´RUe $€Â1 A HP2‘ @P”,àPÀ8J!€(àã(€ 8œá `t á`y  2€B ‹4€0CP!À0‘qF„¨@ 0!L!°À›",,)ˆ4†CP!h@ ", `HqÐC ˜@Lp˜q`˜X€C ˜ &!0L @&‰5`C`&‹8@C 0LÀ0Y 0Là€™rÁax³pmA8 Q8 P¡¢Bˆ@°€,)àXP€PC0L BÀ0Y 0AL!`˜0  L x£B(@ ˆ ", °Dq€ÐC0AL!`H  ÀM€ X   (!PÁS", ¨T, pTq€pC (à`@P,  (€ X   (!@P   P. Pq CP$H@È$ÀH`0„PP!¨B (( XFpˆp€@C8$À¬,€a„ 8N‚³",(N`„, (Y L q7ÀX@XX!H€P@@!¨B @À@X$@ ` L°Œ „, „„ B ‰@„@‡8€CÀ¬,€a„ ÀY`X HHq€ CP!X@XX!H€P@@!¨B @@@X $ (  @°Œ @PXPÀ¬,@PX P ! ( (@À‚°B ÁY`Y p q÷ÀX@XX!H€P@@!¨B @`@X `X @!à `¸,è@ XF€XY `AX! ‚³",@ˆ, Hpq÷ÀX@XX!H€P@@!¨B @€@X`$H % XHÀ°0 °¬,P0!¨BÈ$°”B $à˜BhZÀ„0 PA!B P„ pFppq€pY€€C A!XNPH C pH!À”0  Y@!°¬,PD!¨B D€Y†8°ÿÿJ`N`H #XLÀ°,P@$¨B8@X$P @$HU€ `À!€„È$°œ,P T!È$°”, P T!HE€ HÀ ! ˆ0 àÁp€X!0HÄpÀ<B@Ì@D€qdàFÐ!p@@â CH$°paÐ H$ $,€ CPB!(@ X$ ,0 pFH Sh"(Bà„`!à¸,P V! FPHÀ æ 0JÀ0Y @˜€8b€p0C 8@pr°C DÐ q€`C@$H # @Ð$0  @€@XP V! È$P J¬BF`H 8D`˜0 æ CHN€8€`C$H # Ð$0  `X`!P V!`J H€`YPL€¬B8A!0H` F #WÀPC @B@P88€0CHP!0H „ !0 ,`a„  , PD°,"@ Pâ €, #€`C˜$@H # ˜&ÐP0  ˜&€˜XP V!`J)H„h$ð‚0BÀ YhZÀ°,P8D0 B X„N€8€`C$H 3 BЀ0 À@X B€YP V!F‚8ÀC`$P D0q€`C8$H # 8NЄ0  8N€8YP V!`J H€`YP V! D0€q€`C$@H # FÐ0  F€YP V!`J H€`YP8D¬B`8â€`C$H # BЀ0  B€YP V! È$PD¬B`â J€`C $pH # HÐœ0  H€ YP V!`J H€`YP@$ðQ€ X„ L€ª@€€a„€„HE€ HÀ ! ˆ0 àÁp€ X!à<0 Ä `!€ˆ @Ì @„‡82ðCàP€8 CH$°paÐ H$ $,€ CPB!(@ X$ ,0 ˆ$!HàP„h"à€B€H„P V! DpŒq€`C $PH # HД0  H€ YP V! È$P8D` B X„8N€8€`C$@H # FÐ0  F€YP V!È$À˜BPV!p‚0B` $PH HP”0  ”N#WÀPC B`P88€0C@P!0H „(F!0Œ,@a„ ”, HD ˆ("@ Hâ €F( #€`C$0H # $ÐL0  $€XP V!È$Bàa„h$à”,€0„hZP Dp B X„H€8€`C$H 3 BЀ0 À@X B€YP V!N‚8ÀC`$P D0Œq€`C($@H # (JÐ0  (J€(YP V!È$À˜BP V! D0ˆq€`C$H # BЀ0  B€YP V!È$À˜BP@$ðQ€ X„HU€ `@!€„ % €€H`Ä@PB @€ q`CH$ H # Hp(0  HÀHXP J!È $€ˆBà„0@!PJ! U0 €„PM€H€„Bb`Ì @Bp q€°C$ H  @$0 0 `P1HàY H€ 0   (  H€ `XpÐ B@PX$,@XP X! 8@†ø1pCàWÀ°C$H à и,ÀPX!H $€0  Dà€ Ð¸,ÀP D°B È$Hh@P8 €8  B `„€°C $0H H0Œ0  C€C ($P”0  BД H€8€@CH$Hà„pд,P X!0DpˆBÀ0QL8€PC Npè r€0C 8N!€œ € ( @à€C HN°è%r€àC 8N! œ  (( Pà€°C XNðè-r€C 8N!œ D(`ˆà€`CN0œBàГä&`€@C 8N!@œ @P(  àÐþÿJ °FP Àt€h,€8°TñFá`CÀ$Hà0Y hD!à`0 PX! q` p B@@HÀHN œB@Y$(HàÊ8!ÐœBPÈ$ H @„ €‘$àˆBà0YhP!°BP@ñAHÀ hN!°B@YPÈ$ H @„ €‘$àˆBà0YhP!°BPX! HàhNP ƒ8  B `„w(ÿ¿@ @$€ 0  0BР 8L€8€@C8$Hà„pNд,P X!(D`ˆB (QJ8€PC 8Lpèr€0C 0L!0˜ 0 ( à€C @L°è!r€àC 0L!˜ $( Hà€°C PLðè)r€C 0L!°˜ °,(`Xà€`CˆL ˜BàЋä$`€@C 0L!0˜ 0L(˜ àÐþÿJ ¨F@  d€h*€8°PñFáPC¸$Hà(Y hD!à\0 P X!h@1H@ˆ!Hà(Y pD! hYPhñA1H@ ˆ!Hà(YpD!д, `„PX! HàhNP ƒ8  B `„€0ýÿJðY€ ªH€€„! €€H@Ä@@B @€ q`CH$ H # H`(0  H HXP H! È $HÀ $p„0  0LP€0 PH!U €„=CGI-PerlExGATEWAY_INTERFACE|%s| *SetCgiEnv() %d %d |%s|%s| [%d]%s%%%s-E-CALLARGV, %s-CALLARGV-E-ARGS,Embed::Persist::eval_fileperl_call_argv() 10perl_run() status: %d perl_parse() -ePERLRTENGperl_contruct() perl_alloc() PerlPersistEngine() %d |%s|%s| (null)WASD_ROOT:[src.perl]perlrteng.c;1DynaLoader::boot_DynaLoaderXsInit() PerlSysInit3() perl_destruct() PerlOneShotEngine() |%s|%s| PerlNonPersistEngine() %d |%s|%s| 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__ ü WASD_ROOT:[src.perl]perlrteng.c;1ó¢…«ËÉ‹\ÊyPERL_ROOT:[000000.lib.VMS_IA64.5_34_1.CORE]inline.h;1€¥«ÝŽ¹Â[’ˆ&€PÙ Q— VÊþ“Ý£XÐ õppph²´¿¿. @~ʲ?n~¦&^Œ´{¤ºÎN'¦¿©«¦¦^0´pÀ€}´q¶Ã´#´½ª´§#©§¶^Š §r¿p ~0À}Ár@ÐÁ0UÙs²²©€ 0"ª}@ ²~}«À0a0 Ëpplrng²Õ. @`p0 b`h`}¸}PÊ´¦Ê^0´`À¿p0pn~¦&^!©&. qqq q¿²Õ. @p~µ`‹°°»·PÊ´¦Ê^0´`À¿p0p~"µ Æ u u pˆ áqq}²µ´½²#À²Èj~A²²?@*z(x`à"ª}2j»'°Á_È_s?`à"ª}@ @‘¿n?  – w w pw w ˆŸ@%.±`'PERLRTENGVSI C V7.4-001PerlPersistEngine€!PerlNonPersistEngine€! /PerlOneShotEngine /€:PerlSysInit3€:Ð;SetCgiEnvÐ;ðLXsInitðLàN,`'.shstrtab.note$READONLY$$CODE$$LITERAL$$LINK$PACKAGEEMBEDPERSIST.sbss.sdata.IA_64.unwind_info.IA_64.unwind.strtab.symtab.debug_line.rela.debug_line.trace_abbrev.trace_info.rela.trace_info.trace_aranges.rela.trace_aranges.rela.IA_64.unwind.rela$CODE$WASD_ROOT:[src.perl]perlrteng.c;1DECC$GA_STDOUTPL_UTF8SKIPPL_FOLDPL_FOLD_LATIN1PL_FOLD_LOCALEPL_STACK_SPPL_OPPL_CURPADPL_STACK_BASEPL_SCOPESTACK_IXPL_TMPS_IXPL_TMPS_FLOORPL_MARKSTACKPL_MARKSTACK_PTRPL_CURPMPL_IN_EVALPL_DEFGVPL_CURCOPPL_CURSTACKINFOPL_COMPPADPL_SV_IMMORTALSPL_PARSERPL_NAPL_DEFOUTGVPL_TOP_ENVPL_ERRGVPL_EVAL_ROOTPL_ORIGALENPL_PERL_DESTRUCT_LEVELPL_EXTENDED_UTF8_DFA_TABPL_STRICT_UTF8_DFA_TABPL_C9_UTF8_DFA_TABCLICLEANCLICGIPREFIXCLINOPERLEXCLIPERLDEBUGDEBUGISCGIPLUSUSAGECOUNTCLICGIHASHNAMEPTRCLICGIPLUSHASHNAMEPTRPERLVERSIONSOFTWAREIDUTILITYSETCGIENVPERLNONPERSISTENGINEPERLONESHOTENGINEPERLPERSISTENGINEXSINITPACKAGEEMBEDPERSISTPERLSYSINIT3ELF$TFRADRDECC$TXFPRINTFDECC$MALLOCDECC$TXSPRINTFPERL_ALLOCPERL_CONSTRUCTPERL_PARSEPERL_RUNPERL_CALL_ARGVPERL_GV_ADD_BY_TYPEPERL_MG_GETPERL_SV_2BOOL_FLAGSPERL_SV_2PV_FLAGSDECC$FPUTSDECC$EXITPERL_DESTRUCTPERL_SYS_INIT3PERL_GET_HVCGIVARSTRSAMEPERL_NEWSVPVPERL_HV_COMMON_KEY_LENPERL_NEWXSBOOT_DYNALOADERñÿ   #2>FUdpv€ŽŸª¸ÅÖßêóý `(28DOXeqˆ¡¸ËÔáíú '=IT\€Ð f€€ {€ `€€Ÿ€p&ð¦ã º€ÐDzҀá€í€ü€€€!€*€9€M€Y€m€€Š€”€¢€±€½€Ä€Ì€Ù€ð€û´'Æ'€z' û'-'ÐÇ'p&''`'e e e '__€_ _€ _ (_ 0_ 8_@_ @H_P_ÐX_ ``_Ðh_p&p_ xx_p&€_`'ˆ_ ˜†3‡3P†5Q†`‡5a‡°2xÀ2PâIC*"IDA†8B†9P†Q‡8`‡9a‡rIE †¡2@°‡ÒICIF0†12(@‡bIC’IG±†+²2À‡+022†*`‡* †¡2°‡ÒICR?IH@†A2ðP‡‚ICІÑ2àà‡ICBIIp†q2ð€‡²ICâIÐð†2ñ†/ò2؇22Ї/2І‘2¸ ‡ÂICâ2˜òIJ†(‡(rIK"ILP†#`‡#r IMÀ †Ð ‡" IK IK0 †%@ ‡% IK‚IK°†%Á‡%ÒINò†:2p‡:ICa2`‚ICÁ2XÒIOòIÐ2IPbIP†3‘‡3¡†5Ї5ð†‡02xA2(bIC*†2@‡2ICbIF†+‘‡+À†Á2(ЇòIC"IGB2†2‡2IC`R?rIH †¡2ð°‡ÒICIÐ0†12à@‡bIC’IIІÑ2ðà‡IC2IQ`†a2@p‡’ICÂIFð†ñ2(‡"ICRIG¡†3±‡3†‡@2xP2rIC°†±2@À‡âICIF@†A2(P‡rIC¢IGÀ†+Á2Ї+†‘2 ‡ÂICðR?IH0†12ð@‡bIC’IÐÀ†Á2àЇòIC"II`†a2ðp‡’ICÂIQ†3‡3@†A2ØP‡rIC¢IRц3à‡3††7†6 †0!‡"280‡7@‡6A‡0’ICІ6à‡6IS†7 *!‡7RISq20‚IT°†1±†4²*À‡1Á‡4à†á‡ 2(" ICÐ!2ò!IU"†"‡b"IV¢"IWÒ"IV#IW"#202#IT`#†a#‡#2(¢#ICP%2r%IUÂ%IW&IW&20"&ITq&†3€&‡3°&†±&2ÈÀ&‡â&IC'2€'RY'2¨2'IX; €°0@`'# )L-ð+4ð+è Hà5 Nà5U@°hp‚ð v < ~0@p †`ð5 ’ H £`:±` :µ½0I` Î`à:0ÝI0 ñÀI° pK0