in reply to Dying for a Good Japh
Quite nice.
On Solaris the eval is not needed and the module could be anything.
Set a number of environment vars to selected numbers.
Set @INC to carefully constructed rubbish.
Convert @INC to print JAPH in big letters using environments set earlier. This seems to use ANSI/terminal control sequences.
Ask to load a module. This will fail so perl will print out @INC now holding the message.
On Solaris the eval is not needed and the module could be anything.
A nice trick would be to leave the real @INC in place in some form so real modules would work but require "JAPH" would give message.
In Section
Obfuscated Code