use WWW::Mechanize;
use WWW::Mechanize::TreeBuilder;
use LWP::UserAgent;
FURRY JEOSir Country
my $mech = WWW::Mechanize->new;
WWW::Mechanize::TreeBuilder->meta->apply($mech);
$mech->get( 'link' );
# Find all tags
my @list = $mech->find('h1');
my @list = $mech->look_down('_tag' => 'p',
'class' => 'result__BigRate-sc-1bsijpp-1 iGrAod');
foreach (@list) {
$Resp = $_->as_text();
print $Resp;
}