Select Code to Download

#!/usr/bin/perl
eval join '',map{chr}unpack"A3"x171,q/11511709803209512311211410511011
+603203609509104809304603604712505903610906103910911111010710112103905
+903611506103911611410511010303905905909503408010810109711510103210111
+011610111403211610410103211503611503211611103209810103211510109711409
+910410110003210211111403211610410103211503611503203903610903905803405
+903609506106006203312604703610904706303903211011111603905803903905909
+503408303611503203903610903903211909711503404603609504603403210211111
+7110100032105110032116104101032105110112117116032115036115046034059/;

sub _{print $_[0].$/};