Help for this page

Select Code to Download


  1. or download this
    perl -wle'undef $x{rand()} while keys(%x) == $x++; print $x'