From ac7fd1b400c0a4d11047f80fd151c5df84c9d1a9 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 1 Feb 2008 23:16:17 -0500
Subject: add a few example utilities

---
 bin/solve-superghost.pl | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 bin/solve-superghost.pl

(limited to 'bin/solve-superghost.pl')

diff --git a/bin/solve-superghost.pl b/bin/solve-superghost.pl
new file mode 100644
index 0000000..b020057
--- /dev/null
+++ b/bin/solve-superghost.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Games::Word::Wordlist;
+
+my $start = $ARGV[0] or die "Usage: $0 <word_prefix>\n";
+my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
+print "$_\n" for $wl->words_like(qr/\Q$ARGV[0]/i);
-- 
cgit v1.2.3-54-g00ecf