Perl code for Windows