Um Nachrichten, die base64 codiert sind, in lesbarer Form darzustellen, kann man folgenden Befehl verwenden:

cat base64_encoded_text | \
  perl -le 'use MIME::Base64; while (<>) { print decode_base64($_); }'

Alternative:

perl -MMIME::Base64 -ne 'print decode_base64($_)' < base64_encoded_text

Um Dateien base64 zu codieren, hilft folgender Befehl:

perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)' < file

Wenn eine große Datei codiert werden soll, sollte diese in Teilen von 57bytes codiert werden. Dies stellt sicher, dass die base64-Zeilen korrekt und ohne Füllzeichen in der Mitte dargestellt werden. 57 bytes Daten füllen eine komplette base64-Zeile (76 == 57*4/3).

use MIME::Base64 qw(encode_base64);

open(FILE, "/var/log/wtmp") or die "$!";
while (read(FILE, $buf, 60*57)) {
    print encode_base64($buf);
}  

#Wenn genug RAM vorhanden ist...
use MIME::Base64 qw(encode_base64);
local($/) = undef;  # slurp
print encode_base64(<STDIN>);  

perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)' <file