#!/usr/bin/perl -w
#
# file:    debase64
# purpose: do base64 decoding
# created: pasha jan 4 2000
# usage:   debase64 < input > output
#

use strict;
use MIME::Base64;

local ($/) = undef;
print decode_base64(<STDIN>);

exit;

__END__