Select Code to Download

perl -pe 's/eval/print/' tucano_obfu.pl | perl | perltidy

srand;
my @c = ( 1 .. 90 );
...

    $i++;
}

srand;@_=1..90;print$_[rand($#_-$_)],$/for+1..5;