$ cat whichperl.pl
#!/usr/bin/perl

printf "operating system: %s\n executable: %s\n", $^O,  $^X, ;