$ /usr/contrib/bin/perl -e 'print $^X, "\n"'
/usr/contrib/bin/perl
$ perl -e 'print $^X, "\n"'
perl
$ uname -a
HP-UX noway B.11.00 A 9000/800 xxxxxxxx two-user license
$ perl -e 'print $^O, "\n"'
hpux