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