#!/usr/bin/perl -s

# qp - filter to decode/encode quoted-printable or base64 text
# Steve Kinzler, steve@kinzler.com, Nov 03/Nov 06
# https://kinzler.com/me/home.html#unix

use MIME::QuotedPrint;
use MIME::Base64;

$usage = <<EOF;
usage: $0 [ -d | -e ] [ -q | -b ] [ file ... ]
	-d	decode (default)
	-e 	encode
	-q	quoted-printable (default)
	-b	base64
EOF
die $usage if $h;

if ($b) {
	print(encode_base64(join('', <>))), exit if $e;
	print(decode_base64(join('', <>))), exit;
}

print(encode_qp(join('', <>))), exit if $e;
print(decode_qp(join('', <>)));