Use Perl to Base64 encode and decode files

#!/usr/bin/perl
use MIME::Base64;

# Read entire file at once
local($/) = undef;

if($ARGV[0] eq "enc") {
  print encode_base64(<STDIN>);
}
else {
  print decode_base64(<STDIN>);
}