# read IMAGE_DOS_HEADER structure
read EXE, $record, 64;
($magic,$offset) = unpack "Sx58L", $record; 
#print "$offset\n";

die "$ARGV[0] is not an MSDOS executable file.\n"
    unless $magic == 0x5a4d; # "MZ"

# read signature, IMAGE_FILE_HEADER and first WORD of IMAGE_OPTIONAL_HEADER
seek EXE, $offset, 0;
read EXE, $record, 4+20+2;
($signature,$size,$magic) = unpack "Lx16Sx2S", $record;      ### Line 39


##</code><code>##

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

##</code><code>##

perl-5.12.0\win32>..\miniperl.exe -I..\lib \perl64\bin\exetype.pl ..\wperl.exe
240
Use of uninitialized value $subsys in hash element at \perl64\bin\exetype.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.