C:\Users\ken\tmp>perl -E "say $^O"
MSWin32
C:\Users\ken\tmp>apperl -E "say $^O"
cosmo
C:\Users\ken\tmp>perl -E "use File::Spec; say for @File::Spec::ISA;"
File::Spec::Win32
C:\Users\ken\tmp>apperl -E "use File::Spec; say for @File::Spec::ISA;"
File::Spec::Unix