Select Code to Download

print "Total Trigraphs : ",$#trikeys,"\n";

#!/usr/bin/perl
@DICTS = </usr/dict/*>;
...
  my $e = time - $s;
  print STDERR "Elapsed time to load dictionary: $e.\n";
}