eval eval '"'.


                                      ('['^"\+").(
           ('[')^                   ')').('`'|')').
        ('`'|'.').                ('['^'/').('{'^'['
 ).'\\'.'"'  .('{'^              '+').('`'|'%').('['^
')').('`'|',').('{'^            '[').('`'|')').(('[')^
'(').('{'^'[').("\{"^          '/').('`'|'(').('`'|'%'
  ).('{'^'[').(('{')^        '(').('`'|'(').('`'|')').(
       '['^'/')."\!".      '\\'.'\\'.('`'|'.').'\\'.'"'.
      ';'.('!'^'+').     '"';$:='.'^'~';$~='@'|'(';$^=')'
     ^'[';$/='`'|'.'   ;$,='('^'}';$\='`'|'!';$:=')'^"\}";
    $~='*'|"\`";$^=   '+'^'_';$/='&'|'@';$,='['&'~';$\="\,"^
    '|';$:='.'^'~';  $~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^
    '}';$\='`'|'!'  ;$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|
    '@';$,='['&'~'  ;$\=','^'|';$:='.'^'~';$~='@'|'(';$^="\)"^
    '[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`'
    ;$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~=
     '@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'
     ^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|'
      ;$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\=
       '`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['
        &'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^"\[";$/= '`'
         |'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^  =((
          '+'))^'_';$/='&'|'@';$,='['&'~';$\=(',')^ "\|";$:=  '.'
            ^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';  $,='('^   '}'
             ;($\) ='`'|'!';$:=')'^'}';$~='*'|'`'   ;$^='+'   ^((
                   '_'));$/='&'|'@';$,='['&"\~";    $\=','^   '|'
                   ;$:='.'^    '~';$~='@' |"\(";     $^=')'   ^+
                   '[';$/=     '`'|'.';   $,='('     ^"\}";  $\
                   =('`')|     "\!";$:=   "\)"^       "\}";  (
                   ($~))=      '*'|'`';   ($^)         ='+'
                   ^"\_";     $/=('&')|   '@';         ($,)
                    ='['&     "\~";$\=    ','^         '|';
                    ($:)=     '.'^'~'     ;$~=         '@'|
                    '(';     $^=')'       ^'['         ;$/=
                    '`'|     '.'          ;$,=         '('^
                    '}';      $\=         '`'          |((
                    '!'        ));       $:=           ')'
                    ^((         '}'     ));            $~=
                    '*'          |((   '`'              ))
                    ;(             ($^))=               ((
                    ((              '+'))               ))
                    ^+             "\_";$/=             ((
                   '&'            ))|+ "\@";            $,
                  =((           '['))&  '~';           $\=
                 ','^         "\|";$:=   '.'          ^'~'
               ;($~)=                                ('@')|
             "\(";$^=                               ')'^'['
[download]

To run this program, just copy and paste the code into a text file, for example: pits.pl.
Then just run it like this:

perl pits.pl
[download]