Select Code to Download

#!/usr/bin/perl -w
use strict;
...
else {
    print $resp->as_string();
}

{"access_token":"ea1dda77710f64b0db328415427a1463e74ea204","expires_in
+":3600,"token_type":"bearer"}