use strict;
 use warnings;
 use LWP::UserAgent;
 use HTTP::Request::Common qw(GET);

 my $ua = LWP::UserAgent->new;
 my $endpoint = 'Http://www.sierraaluminum.com:8081/api/MarvinWindows/getASN';
 my $req = HTTP::Request->new('GET');
 $req->header('Accept' => 'application/xml');
 $req->url($endpoint);
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";