perlスクリプトを使用してウェブサイト全体のコンテンツを取得します

私は私の会社で初めて新しい雇用者です。初めてPerlに取り組んでいます。私たちが使用している場合https://www.talosintelligence.com/reputation_center/lookup?search=27.34.246.62 perlスクリプトを使用してウェブサイト全体のコンテンツを取得します

しかし、Perlで：は、私は、このリンクからIP-評判を見つけるしたタスクを取得

#!/bin/perl 
use strict; 
use warnings; 
use WWW::Mechanize; 

open FILE1, ">./Reports/Reputation.txt" or die "Cannot open Reputation.txt!"; 
my $mech = WWW::Mechanize->new(autocheck => 1); 

my $url="https://www.talosintelligence.com/reputation_center/lookup?search=27.34.246.62"; 
$mech->get($url); 
print $mech->status(); 
my $content = $mech->content(); 
open FILE1, ">./Reports/Reputation.txt" or die "Cannot open Reputation.txt!"; 
print FILE1 ($content); 
close FILE1; 
print "\nIP Reputation Report Generated \n";

私は全体のコンテンツを得ることはありません。これを得るために私は何ができますか？

出典

2017-06-09 Arpit Jain

なぜあなたは '二回FILE1'を開くのですか？それをしないでください。 –