decode-base64
[
plain text
]
#!/usr/bin/perl
use
MIME::Base64
qw
(decode_base64);
while
(<>) {
print
decode_base64($_); }