home computer programs useful useless secunet_contest entry_1 entry_2 entry_3 entry_4 entry_5 entry_6 japh japh_1 japh_2 japh_3 japh_4 japh_5 piet hello_world_1 hello_world_2 Piet misc pi polyglot game_of_life
eval 's=Shell'; eval "echo 'Just another $s Hacker\ '; exit" && 1 for $s = Perl; sub echo { print @_ };
This is a bilingual JAPH. (More about JAPHs.)
It can be executed with Perl (it then prints "Just another Perl Hacker") or with Unix shells like sh, bash or ksh (printing "Just another Shell Hacker").
Download the source.
A pure Kornshell version is here.