#!/usr/bin/perl
use strict;
use JSON;
use Data::Dumper;
require LWP::UserAgent;
my $plantinfo;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://dashboard.myplantlink.com/api/v1/plants');
$req->authorization_basic('[hide]','[hide]');
my $response = $ua->request($req);
if ($response->is_success) {
    $plantinfo = decode_json $response->decoded_content;
 }
else {
    print "Error: ",$response->status_line;
    exit;
}