Help for this page

Select Code to Download

Select or download this

f (@ARGV) {
        open FILE, shift or die "No such dictionary...";
        rand($.) < 1 && ($answer = (split(/[\r\n]+/,$_))[0]) while <FI
+LE>;
        close FILE;