Select Code to Download

#!/usr/bin/perl
use strict;
...
        print Dumper $client->responseContent();
    }
}

 ./TestToken.pl
$VAR1 = {
...
                       'result' => 'WrongToken'
                     }
        };