--- /dev/null
+#!/usr/bin/perl
+
+while (<STDIN>) {
+ chop;
+ push @words, $_;
+}
+@words = grep {length $_ > 2} @words;
+@words = sort @words;
+@num = (0 .. $#words);
+
+@use = ();
+
+for ($i = 0; $i < $ARGV[0]; ++$i) {
+ $r=int rand @num;
+ push @use, splice @num, $r, 1;
+}
+
+@use = sort {$a <=> $b} @use;
+
+foreach $i (@use) {
+ print "$words[$i] ";
+}
+print "\n";