Help for this page

Select Code to Download


  1. or download this
    perl -M"5;@ARGV=glob shift" -lnE "last if /__DATA__/;$c++ unless /^$|^
+\s*#/}{say $c" "./t/*.t"
  2. or download this
    
perl -M"0;eval{require 6},@}=(40,35,0,32)" -e "print map{chr(ord($_)-s
+hift@})}(split'',$@)[12,19,0,23]"
...
 
perl -M'0;eval{require 6},@}=(40,35,0,32)' -e 'print map{chr(ord($_)-s
+hift@})}(split"",$@)[12,19,0,23]'