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";#