Here is the output of perltidy, which offers a clue (nifty obfu!!):
#!/usr/bin/perl
eval eval '"'
. ( '[' ^ '+' )
. ( ('[') ^ (')') )
. ( ('`') | ')' )
. ( ('`') | '.' )
. ( ('[') ^ '/' )
. +'\\'
. +"\""
. ( '`' ^ '!' )
. ( '`' ^ ',' )
. ( '`' ^ ',' )
. ( ('{') ^ '[' )
. ( '{' ^ '"' )
. ( '`' ^ '/' )
. ( '{' ^ '.' )
. ( "\{" ^ "\)" )
. ( ( ("\{") ) ^ '[' )
. ( ('{') ^ '(' )
. ( '`' ^ '%' )
. ( '`' ^ '!' )
. ( "\{" ^ ')' )
. ( '`' ^ ('#') )
. ( '`' ^ '(' )
. ( '{' ^ '[' )
. ( ('`') ^ '!' )
. ( '{' ^ ')' )
. ( '`' ^ '%' )
. ( '{' ^ '[' )
. ( '`' ^ '"' )
. ( '`' ^ ('%') )
. ( '`' ^ ',' )
. ( '`' ^ '/' )
. ( "\`" ^ '.' )
. ( '`' ^ "'" )
. ( '{' ^ '[' )
. ( ('{') ^ ('/') )
. ( ('`') ^ '/' )
. ( '{' ^ '[' )
. ( '{' ^ '.' )
. ( '{' ^ '(' )
. ( ('\\') )
. ('\\')
. ( '`' | '.' )
. ('\\') . '"' . ';'
. ( ('!') ^ "\+" ) . "\"";
$: = '.' ^ '~';
$~ = '@' | '('; #;#
__END__
... etc...
And for a further clue, try replacing eval eval with print ;)
dmm
If you GIVE a man a fish you feed him for a day
But, TEACH him to fish and you feed him for a lifetime
|