$ perl -MMIME::Base64 -E'say length for
   $ARGV[0],
   encode_base64($ARGV[0]),
   pack("N", $ARGV[0]),
   pack("Q", $ARGV[0])
' 1234
4
9
4
8