Select Code to Download

# read IMAGE_DOS_HEADER structure
read EXE, $record, 64;
...
read EXE, $record, 4+20+2;
($signature,$size,$magic) = unpack "Lx16Sx2S", $record;      ### Line 
+39

perl-5.12.0\win32>..\miniperl.exe -I..\lib \perl64\bin\exetype.pl ..\w
+perl.exe
'x' outside of string in unpack at \perl64\bin\exetype.pl line 39.

perl-5.12.0\win32>..\miniperl.exe -I..\lib \perl64\bin\exetype.pl ..\w
+perl.exe
240
Use of uninitialized value $subsys in hash element at \perl64\bin\exet
+ype.pl line 52.
Use of uninitialized value $subsys in concatenation (.) or string at \
+perl64\bin\exetype.pl line 52.
..\wperl.exe uses the UNKNOWN() subsystem.