The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
GAAS / MIME-Base64-Scripts-1.00 / decode-base64 
#!/usr/bin/perl

use MIME::Base64 qw(decode_base64);

while (<>) {
    print decode_base64($_);
}