#!/bin/bash
I=$( basename $0 )
function usage(){
echo "$I: (-d|-e)
$I reads from stdin and writes to stdout.  "
}

case "$1" in
  -d)
  perl -MMIME::QuotedPrint -pe '$_=MIME::QuotedPrint::decode($_);'
  ;;
  -e)
  perl -MMIME::QuotedPrint -pe '$_=MIME::QuotedPrint::encode($_);'
  ;;
  *)
    usage
    exit 0
  ;;
esac


