Как я могу получить содержимое следующей ссылки в WWW :: Mechanize?

Шаги, чтобы попробовать

1. Сначала распечатайте содержимое своего get, чтобы убедиться, что вы попадаете на действительную HTML-страницу.
2. Убедитесь, что ссылка, по которой вы собираетесь, является третьей ссылкой с именем MESH (с учетом регистра?)
3. Распечатайте содержимое вашего второго get
4. Распечатайте имя файла, чтобы убедиться, что оно правильно сформировано
5. Убедитесь, что файл был успешно создан

Дополнительный

• Вам не нужно, если в любом случае - он сработает или умрет

Пример

#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;

   sub main{
   
      my $url    =  qq(http://www.kmzlinks.com);
      my $dest   =  qq($ENV{HOME}/Desktop/destfile.kmz);
      
      my $mech   =  WWW::Mechanize->new(autocheck => 1);
      
      # if needed, pass your credentials before this call
      $mech->get($url);
      die "Couldn't fetch page" unless $mech->success;
      
      # find all the links that have urls to kmz files
      my @links  =  $mech->find_all_links( url_regex => qr/(?:\.|%2E)kmz$/i );
      
      foreach my $link (@links){               # (loop example)

         # use absolute URL path of the link to download file to destination
         $mech->get($link->url_abs, ':content_file' => $dest);
     
         last;                                 # only need one (for testing)
      }     
   }
   
   main();

Вы уверены, что хотите, чтобы третья ссылка под названием «MESH»?

Измените if на unless.