#!/usr/bin/perl

use MIME::Decoder;
$decoder = new MIME::Decoder 'base64' or die "unsupported";
$decoder->decode(\*STDIN, \*STDOUT);