some experimental from windows activeperl