use strict;
use warnings;
use Mojo::UserAgent;

my $ua_food;
my $json_food;
my $url_food;
$url_food  = "https://api.nal.usda.gov/fdc/v1/food/170581?api_key=Oc4bD3tFWgPAscW0R0gBRivwqEdt0N182PXCGNQO";
$ua_food   = Mojo::UserAgent->new;
$json_food = $ua_food->get($url_food)->res->json;