if ($^O eq 'MSWin32') {

require Win32::API;
Win32::API->Import('Kernel32','SetErrorMode','I','I');
print "Disable :".SetErrorMode(0x0001)."\n";

}