#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use HTTP::Headers;
use HTTP::Request;
use HTTP::Response;
use HTTP::Headers;
use LWP::UserAgent;
use JSON;
use LWP::Authen::Oauth2;
use Net::OAuth2::Profile::Password;

my $base_url = 'https://api.mavenlink.com/api/v1/workspaces.json'; #web site
my $app_id = "5axxxxxxxxxxxxxx"; # Application ID
my $secret_tkn = "aefdxxxxxxxxxxxxxx";#secret token
my $acc_tkn = "b77cxxxxxxxxxxxxxxx"; # access token


my $header = HTTP::Headers->new ('Authorization' => 'Bearer  b77cxxxxxxxxxxxxxxxxxxxx');
my $request = HTTP::Request->new("GET",$base_url,$header);
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);
print $response->content;