or download this
$$ = q{$_=unpack'u',q|L)%\]<2$D7STG<')I;G0@(DIU<W0@86YO=&AE<B!097)L(&A
+A8VME<B(G(3L`|;};
$b = q{$_=unpack'u',q|<)%\])R1?/7$A*"1?*3TH)"0]?B\N*B]G*2$G.P``|;};
...
#$} =~ s/\n//g;
eval; eval; eval; eval; eval; eval; eval; eval; eval; eval;