Function at 0x40134f
Capabilities:
Link many functions at runtime

Disassembly:
push esi
mov esi, dword [sym.imp.KERNEL32.dll_GetProcAddress]
push edi
mov edi, dword [esp + 0xc]
push str.Perl_Iendav_ptr
push edi
call esi
test eax, eax
mov dword [0x40d4a0], eax
jne 0x401373
xor eax, eax
jmp 0x4015f8
push str.Perl_Iperl_destruct_level_ptr
push edi
call esi
test eax, eax
mov dword [0x40d46c], eax
je 0x40136c
push str.Perl_Isv_no_ptr
push edi
call esi
test eax, eax
mov dword [0x40d448], eax
je 0x40136c
push str.Perl_Isv_undef_ptr
push edi
call esi
test eax, eax
mov dword [0x40d4a8], eax
je 0x40136c
push str.Perl_TXpv_ptr
push edi
call esi
test eax, eax
mov dword [0x40d47c], eax
je 0x40136c
push str.Perl_Tcurstackinfo_ptr
push edi
call esi
test eax, eax
mov dword [0x40d450], eax
je 0x40136c
push str.Perl_Tmarkstack_ptr_ptr
push edi
call esi
test eax, eax
mov dword [0x40d478], eax
je 0x40136c
push str.Perl_Tstack_base_ptr
push edi
call esi
test eax, eax
mov dword [0x40d474], eax
je 0x40136c
push str.Perl_Tstack_max_ptr
push edi
call esi
test eax, eax
mov dword [0x40d49c], eax
je 0x40136c
push str.Perl_Tstack_sp_ptr
push edi
call esi
test eax, eax
mov dword [0x40d4a4], eax
je 0x40136c
push str.Perl_croak_nocontext
push edi
call esi
test eax, eax
mov dword [0x40d480], eax
je 0x40136c
push str.Perl_get_context
push edi
call esi
test eax, eax
mov dword [0x40d464], eax
je 0x40136c
push str.Perl_get_sv
push edi
call esi
test eax, eax
mov dword [0x40d45c], eax
je 0x40136c
push str.Perl_gv_fetchpv
push edi
call esi
test eax, eax
mov dword [0x40d454], eax
je 0x40136c
push str.Perl_newSV
push edi
call esi
test eax, eax
mov dword [0x40d444], eax
je 0x40136c
push str.Perl_newSVpv
push edi
call esi
test eax, eax
mov dword [0x40d498], eax
je 0x40136c
push str.Perl_newXS
push edi
call esi
test eax, eax
mov dword [0x40d430], eax
je 0x40136c
push str.Perl_set_context
push edi
call esi
test eax, eax
mov dword [0x40d460], eax
je 0x40136c
push str.Perl_stack_grow
push edi
call esi
test eax, eax
mov dword [0x40d494], eax
je 0x40136c
push str.Perl_sv_2bool
push edi
call esi
test eax, eax
mov dword [0x40d484], eax
je 0x40136c
push str.Perl_sv_2iv
push edi
call esi
test eax, eax
mov dword [0x40d48c], eax
je 0x40136c
push str.Perl_sv_2mortal
push edi
call esi
test eax, eax
mov dword [0x40d458], eax
je 0x40136c
push str.Perl_sv_2pv
push edi
call esi
test eax, eax
mov dword [0x40d490], eax
je 0x40136c
push str.Perl_sv_setiv
push edi
call esi
test eax, eax
mov dword [0x40d440], eax
je 0x40136c
push str.Perl_sv_setpv
push edi
call esi
test eax, eax
mov dword [0x40d428], eax
je 0x40136c
push str.Perl_win32_init
push edi
call esi
test eax, eax
mov dword [0x40d468], eax
je 0x40136c
push str.boot_DynaLoader
push edi
call esi
test eax, eax
mov dword [0x40d470], eax
je 0x40136c
push str.perl_alloc
push edi
call esi
test eax, eax
mov dword [0x40d42c], eax
je 0x40136c
push str.perl_construct
push edi
call esi
test eax, eax
mov dword [0x40d438], eax
je 0x40136c
push str.perl_destruct
push edi
call esi
test eax, eax
mov dword [0x40d434], eax
je 0x40136c
push str.perl_free
push edi
call esi
test eax, eax
mov dword [0x40d43c], eax
je 0x40136c
push str.perl_parse
push edi
call esi
test eax, eax
mov dword [0x40d488], eax
je 0x40136c
push str.perl_run
push edi
call esi
xor ecx, ecx
mov dword [0x40d44c], eax
test eax, eax
setne cl
mov eax, ecx
pop edi
pop esi
ret