perl -MMIME::Base64 -e 'print decode_base64($str) . "\n";'