Help for this page

Select Code to Download


  1. or download this
    perl -Mstrict -wE'use constant X => qw(a b c); say "ok" if "a" ~~ X'
  2. or download this
    perl -Mstrict -wE'use constant X => qw(a b c); say "ok" if "a" == X'
  3. or download this
    perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|,
get(q=http://cpan.org/misc/japh=)))]'