#! /usr/bin/perl -w

use strict;
use warnings FATAL => qw( all );
use JSON;
use MIME::Base64;
use LWP::UserAgent;
use Data::Dumper;

#$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0; # hack for bad cert

my $tokenAuth = encode_base64('<username>:<authorzation-token>', '');

my $ua = LWP::UserAgent->new;
$ua->default_header('Authorization' => "Basic $tokenAuth");

$ua->default_header(accept => "application/json");

my $response = $ua->get('https://frc.staging.api.usfirst.org/api/v1.0/2015');
die unless $response->is_success(); # actual error handling advised
my $data = decode_json($response->content);

print Dumper($data);