$ perl -E 'say $^O'
cygwin
$ ./perl.com -E 'say $^O'
cosmo
$ perl -E 'use File::Spec; say for @File::Spec::ISA;'
File::Spec::Cygwin
$ ./perl.com -E 'use File::Spec; say for @File::Spec::ISA;'
File::Spec::Unix