The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#! /bin/bash
if [ "$1" == "" ] ; then
echo "you need a word you want to check"
exit 0;
fi

wn $1 -hypon -hypen -synsv -synsn | sed 's/Sense/Sense~~~~~~~~~/g' | sed 's/[[:space:]]*=> / /' | sed '/^$/d' | sed 's/ //'  | sed 's/,/, /' | sed 's/HAS INSTANCE//g';