JWT Examples with Perl Decryption

Overview with Different Languages
http://www.url-encode-decode.com/base64-encode-decode/

JWT Decode Online
http://jwt.calebb.net

Online Decoder:
http://kjur.github.io/jsjws/tool_b64udec.html

Perl

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

print "Sample JWT Payload\n";
my $myPayload = "eyJqdGkiOiI3YmNiMTQ5ZS1lZTFlLTQ2YWQtODlkNy04ZWVkMTFmODc1ZTEiLCJpYXQiOjE0NjUzMjI3NzgsInN1YiI6IkVyaWMiLCJpc3MiOiJBUElNb2R1bGUiLCJyb2xlcyI6WyJ1c2VyIiwiYWRtaW4iXSwiZXhwIjoxNDY1MzIyODI4fQ";
print decode_base64($myPayload)."\n";

print "\n--- Encrypt and Decrypt Base64 Example ---\n\n";
$myPayload = '{"jti":"7bcb149e-ee1e-46ad-89d7-8eed11f875e1","iat":1465322778,"sub":"Eric","iss":"APIModule","roles":["user","admin"],"exp":1465322828}';
$myPayload_enc = encode_base64($myPayload);
print $myPayload_enc."\n";
print decode_base64($myPayload_enc)."\n";