Calling the Desk.com API in perl using Net::OAuth.

desk.pl

use strict;
use warnings;

use Net::OAuth 0.20;
use Data::Random qw(:all);
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
use HTTP::Request::Common;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

my $request = Net::OAuth->request('protected resource')->new(
  consumer_key      => 'CONSUMER_KEY',
  consumer_secret   => 'CONSUMER_SECRET',
  request_url       => 'https://SUBDOMAIN.desk.com/api/v2/users/me',
  request_method    => 'GET',
  signature_method  => 'HMAC-SHA1',
  timestamp         => time,
  nonce             => join('', rand_chars(size=>16, set=>'alphanumeric')),
  version           => '1.0',
  token             => 'TOKEN',
  token_secret      => 'TOKEN_SECRET'
);

$request->sign;
my $res = $ua->request(GET $request->to_url);
print $res->content;

It doesn't seems to authenticate user. regardless of adding consumer key, secret and token, token_secret.

@shardiwal did you change the subdomain as well, if your site has a cname + ssl please change the host.