[killhand]

in embperl.h:

at around line 61 change

snprintf(buffer, 256, "if(defined(%s))......

for

_snprintf(buffer, 256, "if(defined(%s))......

or put this at the top of the file

#define snprintf _snprintf