#!/usr/bin/perl -Tw

#Author:
#Michael Wallette (mike AT gecko DASH ak DOT org)
#
#Purpose:
#This software is essentially just a wrapper for the Mime::Base64 Perl module
#by Gisle Aas, and and available on CPAN.  It is used to decode a Base64-encoded
#string into UTF-8.
#
#License:
#This program is free software.  You may redistribute it and/or modify it
#under the terms of the Gnu General Public License (GPL) as published by
#the Free Software Foundation, either version 2 of the License or, at your
#option, any later version.
#
#This program is distributed in the hope that it will be useful, but WITHOUT
#ANY WARRANTY, eithout even the implied warranty of MERCHANTABILITY or
#FITNESS FOR A PARTICULAR PURPOSE.  See the Gnu General Public License for
#more details.

use strict;
use MIME::Base64;

my $Text;
my $Message="";
my $License="License:\nThis program is free software.  You may redistribute it and/or modify it\nunder the terms of the Gnu General Public License (GPL) as published by\nthe Free Software Foundation, either version 2 of the License or, at your\noption, any later version.\n\nThis program is distributed in the hope that it will be useful, but WITHOUT\nANY WARRANTY, eithout even the implied warranty of MERCHANTABILITY or\nFITNESS FOR A PARTICULAR PURPOSE.  See the Gnu General Public License for\nmore details.\n\n";

if (($#ARGV == 0) && (($ARGV[0] eq "-l") || ($ARGV[0] eq "-L")))
  {
    print $License;
  }

print "Enter Base-64 encoded text; press Ctrl-D to end\n";

while (defined($Text=<STDIN>))
  {
    $Text=~s/\s//;
    $Message=$Message.$Text;
  }

print decode_base64"$Message";