c:\perl\bin\perl -MFile::Spec -e "print File::Spec::Win32->catfile('')"