|Think about Loose Coupling|
Re: Dying for a Good Japhby tweetiepooh (Friar)
|on Jan 30, 2006 at 14:45 UTC||Need Help??|
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.