Lnxgeek.org Wiki - Freedom of choice, I choose Freedom

#!/usr/bin/perl -w 
use MIME::Base64;
print "\n";
foreach (@ARGV) {
  print decode_base64("$_");
  print "\n\n";
}

The script take the base64 encoded input as a parameter and output the result. Like this:

de-base64.pl ZW5jb2RlZC1iYXNlNjQtdGV4dA==

encoded-base64-text

#!/usr/bin/perl -w 
use MIME::Base64;
print "\n";
foreach (@ARGV) {
  print encode_base64("$_");
  print "\n\n";
}

It is run the same way as de-base64.pl.