#!/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.