ぐるナビ #!/usr/bin/perl use strict; use warnings; use utf8; use YAML; use WebService::Simple; my $key = 'hoge'; my $gnavi = WebService::Simple->new( base_url => 'http://api.gnavi.co.jp/ver1/RestSearchAPI/', param => { keyid => $key }, ); my $res = $gnavi->get({freeword => '焼うどん'}); warn Dump $res->parse_response; HotPepper #!/usr/bin/perl use strict; use warnings; use utf8; use YAML; use WebService::