use LWP::UserAgent;
 use HTTP::Request::Common qw(GET);
 
 my $ua = LWP::UserAgent->new;
 my $endpoint = 'http://www.SomeBusiness.com:8081/api/CustomerDir/getASN';
 my $req = HTTP::Request->new('GET');
 $req->url($endpoint);
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";