# easter # egg to monks use LWP::UserAgent; \$ss1='0720971121121'. '210320690971151161011'. '1403211611103212111111' . '703209710810803301004'.'6'. '046'; \$ss2 ='0971101000321' . '040971121121210320981051' . '1'. '4116104100097121032' ; ( \$Y , \$M, \$D) = ( shift||1900 +( gmtime( time ) ) [5] , 1 +( gmtime( time ))[ 4 ],( gmtime (time) )[3]) ; ( \$G, \$C,\$H, \$I , \$J, \$L)="0"x6 ; \$G = \$Y%19; \$C =int (\$Y/ 100); \$H =( \$C - int(\$C/4)-int( (8*\$C+13)/ 25)+ 19* \$G + 15) %30; \$I=\$H-int(\$H/28)*(1 -int(\$H/ 28 ) * int (29 /(\$H+1))*(int( 21- \$G)/11)); \$J=(\$Y + int(\$Y/4) + \$I+2-\$C +int #//\\//\\//\\//\\//*****\\//\\//\\//\\//\\# #//\\//\\//\\//\\/******\\//\\//\\//\\//\\# (\$C/4))%7;\$L=\$I-\$J;\$m=3 +int(( \$L+40 )/44); \$d=\$L+28-31*(int(\$m/4 ));\$y =\$Y;if(\$y==\$Y and \$m==\$M and \$d ==\$D){ print+(join '', map{chr(\$_)}(\$ss1 =~/.../g)),( \$m == 4 and \$d == 12 ? + ( join '', map { chr (\$_ ) }( \$ss2 =~ /.../g ) ): 'by ') ,LWP::UserAgent->new->get('htt'. 'p://www.perlmonks.org/index'. '.pl?no'.'de_id=174111')-> title(),\$/}