Here is the output of perltidy, which offers a clue (nifty obfu!!):

#!/usr/bin/perl
eval eval '"'
  . ( '[' ^ '+' )
  . ( ('[') ^ (')') )
  . ( ('`') | ')' )
  . ( ('`') | '.' )
  . ( ('[') ^ '/' )
  . +'\\'
  . +"\""
  . ( '`' ^ '!' )
  . ( '`' ^ ',' )
  . ( '`' ^ ',' )
  . ( ('{') ^ '[' )
  . ( '{' ^ '"' )
  . ( '`' ^ '/' )
  . ( '{' ^ '.' )
  . ( "\{" ^ "\)" )
  . ( ( ("\{") ) ^ '[' )
  . ( ('{') ^ '(' )
  . ( '`' ^ '%' )
  . ( '`' ^ '!' )
  . ( "\{" ^ ')' )
  . ( '`' ^ ('#') )
  . ( '`' ^ '(' )
  . ( '{' ^ '[' )
  . ( ('`') ^ '!' )
  . ( '{' ^ ')' )
  . ( '`' ^ '%' )
  . ( '{' ^ '[' )
  . ( '`' ^ '"' )
  . ( '`' ^ ('%') )
  . ( '`' ^ ',' )
  . ( '`' ^ '/' )
  . ( "\`" ^ '.' )
  . ( '`' ^ "'" )
  . ( '{' ^ '[' )
  . ( ('{') ^ ('/') )
  . ( ('`') ^ '/' )
  . ( '{' ^ '[' )
  . ( '{' ^ '.' )
  . ( '{' ^ '(' )
  . ( ('\\') )
  . ('\\')
  . ( '`' | '.' )
  . ('\\') . '"' . ';'
  . ( ('!') ^ "\+" ) . "\"";
$: = '.' ^ '~';
$~ = '@' | '(';    #;#
__END__

... etc...
[download]

And for a further clue, try replacing eval eval with print ;)

dmm