Help for this page

Select Code to Download


  1. or download this
    open(D,"/usr/share/dict/words");@D=<D>;
$x=$D[int,rand()*$#D];$y=$D[int(rand()*
$#D)];$x=~s/'s\n$|s\n$|\n$//;$x.="s";$y
=~s/'s\n$|s\n$//;print"that $x my $y";#
  2. or download this
    split/\n/,`cat /usr/share/dict/words`;$a
=$_[rand$#_];$a=~s/s$|$/s/;$b=$_[rand$#_
];$b=~s/s\n$//;print"that $a my $b";####
  3. or download this
    split/\n/,`cat /usr/share/dict/words`;print
"that ".$_[rand$#_]."'s my ".$_[rand$#_];##