#!/usr/bin/perl
###########################################
# b64.pl - Encode and decode Base64
# Mike Schilli <m@perlmeister.com>, 2004
###########################################
use warnings;
use strict;

use Getopt::Std;
use MIME::Base64;

getopts "d", \my %opts;

die "usage: $0 [-d] string" unless 
    defined $ARGV[0];

if($opts{d}) {
    print decode_base64($ARGV[0]), "\n";
} else {
    print encode_base64($ARGV[0]);
}