Getting a token
perl -Mlocal::lib=local -MJSON::WebToken -MData::Dumper -E ' my $d = JSON::WebToken->decode("eyJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJiODA0NGY0MC05ZjQ2LTQxOWUtYWJiYi0zOWY4YjkwY2VhZDMiLCJleHAiOjE0Mjk3NDkxODIsImlhdCI6MTQyOTcyMDM4MiwiaXNzIjoiYWNjb3VudHMudmFsaWRhZCIsImF1ZCI6IjE0MjBkMjMwLWE0ZTMtNGQyYS1iMGEwLTQ0N2RhZTUxMTVlZiJ9.ntOgffomGiFC0LlL-5q-TJCCjIlrsMopI2yTxLO1qZk","***"); say Dumper $d'