Select Code to Download

$ cat ./generate_words.pl
#!/bin/env perl
...
        my $rin = join("", @chars[ map { rand @chars } ( 1 .. 5 ) ] ) 
+;
        print $rin, "\n";
}

$ time perl ./generate_words.pl > words.txt;

...
   copy words(word) from stdin csv; " )

real    1m16.223s