#!/usr/local/bin/perl
use strict;
# This code is Copyright 2005, Simon Brown <projects at caelyx.net>
# It it licenced to you under the GPL. Other licences may be available
# upon friendly request.

use warnings;

my $query = $ARGV[0];
print `egrep -i '^$query\$' /usr/share/dict/words`;
