tompng

s=%w(ABCDEFGHIJKMNOQRSUWXYZ0123456789 "`^' acegmnopqrsuwxyz)########################################
b='';d=->c{(w=s.find{|a|a[c]})&&(b+=(w.size+w.index(c)).to_s(2)[1..-1])};%(#########################
B^"`^^```^""NB^"`^^```^""NBS4K2DANGSGDJXANGWGDJDBYUS4I2OENGWGDJD""'`"^"'""'J"`^"`^^`"`^DJ"`^"`^^`"`^
D  mqwgmqwa    anawoqom  NOGGS24NNUZ6YX1BJAWC2IUKE21CCKJFFYZWQM  wsereues  Z  pnaxmxex    aomoeooo  
C  3MDN7SQJ    2BCEA37Q  IBEG24XQOOX082HI6X0QZ51B7HW8WUIE7JYQZ4  ME7JSE6W  M  RO7GG835    N77U0Y5W  
F  BDZ6UK1K    OMZGQU5K  O5WSFIME7JYGE34HOJ1Q525RO7SQ54HD2RGKFI  UJE6XYJ4  D  Q6FDEMXX    KNM0GWW9  
M  6YH4448A    2YH4Z24R  Y3UY9MDM27Y0G3IRYXUY9JDM27Y0G3IRZBZ60U  8O6YH4J4  8  OYDDYZS4    A27FNGSG  
D  `"""'"`  xa  "'"'"'"  1JIRYUZ65M7E7QWS13IRYZSE1SCMI9G8KCDM3Xg  ``""``"  9  ``^^'``  en  `^`"^^`  
7F         NQSGcsooosasp444WQ3FHY7U4A2OH443IRY3Z6DU4C7FZ0Y5HHI3U0         S21         RZOY         G
B  xuwpxew  "8H3IN27BQW45KOXXY04DA71U8W4RD6YA8GWRM2FE0D5KA27FNW^  psaycsa  Y  roryxma  '"  pmswrmz  

yasu47b

use strict;
use warnings;
use 5.010;
use Data::Dumper;
use Mojo::UserAgent;
use Mojo::JSON('decode_json');

my $conf = {
    host=>'localhost',
    user=>'admin',