Encode/decode un file o stringa in Mime Base64

Supponiamo aver una stringa "Prova encode" ed un file "prova.txt" da voler encodare in Mime base64. Per risolvere il problema possiamo semplicemente lanciare la riga di comando:

perl -MMIME::Base64 -e 'print encode_base64("Prova encode")'
perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)' prova.txt

Per l'operazione inversa basta fare:

perl -MMIME::Base64 -le 'print decode_base64("stringa in base64")'
perl -MMIME::Base64 -ne 'print decode_base64($_)' prova.base64