Help for this page
#!/usr/bin/perl use strict; ... print Dumper $client->responseContent(); } }
./TestToken.pl $VAR1 = { ... 'result' => 'WrongToken' } };