use HTTP::Cookies;
use LWP::UserAgent;
use HTTP::Request::Common qw (GET POST);
$|=1;
my $ua=LWP::UserAgent->new(agent=>'Mozilla/5.0 (Windows NT 10.0; rv:46.0) Gecko/20100101 Firefox/46.0',timeout=>10);
my $cookie_jar=HTTP::Cookies->new();
$ua->cookie_jar($cookie_jar);
my %h=(
'Tyc-From'=>'normal',
'Accept-Encoding'=>'gzip, deflate',
'Accept'=>'application/json, text/plain, */*',
'Referer'=>'http://www.tianyancha.com/company/398459114'
);
my $ba=$ua->request(GET 'http://www.tianyancha.com/company/398459114.json',%h)->as_string;
open(C,">test_get.txt") or die;
print C "$ba";
close C;