Modified for Windows ActivePerl