ADDS="-a asdf@asdf.com asdf.asdf@asdf.com boonunit@boogers.com "
TOS="-at list1@list.com list2.list@list.com" 
SUBS="-as whoa nellie \"what's up\" woollen"
DELS="-s writch microsoft drc "
ARGS="$ADDS $TOS $SUBS $DELS"

if [ "$1" == "-d" ]; then
perl -d spamproc $ARGS 2> out
else
spamproc $ARGS -s "Richard Haley <writch@writch.com>" $* 2> out
fi
less out
