如何使用Perl从网站下载链接目标？

use strict;
use warnings;
use HTTP::Tiny;
use HTML::Parser;

# 目标网站的URL
my $url = 'http://example.com';

# 创建HTTP::Tiny对象
my $http = HTTP::Tiny->new();

# 发送GET请求，获取网页内容
my $response = $http->get($url);

# 检查请求是否成功
unless ($response->{success}) {
    die "Failed to retrieve webpage: $response->{status} $response->{reason}\n";
}

# 获取网页内容
my $content = $response->{content};

# 创建HTML解析器对象
my $parser = HTML::Parser->new(
    start_h => [\&start_tag, 'self, tagname, attr'],
);

# 定义处理开始标签的回调函数
sub start_tag {
    my ($self, $tagname, $attr) = @_;
    
    # 如果是链接标签
    if ($tagname eq 'a' && $attr->{href}) {
        my $link = $attr->{href};
        
        # 过滤掉非链接的内容
        return unless $link =~ /^http/;
        
        # 将链接保存到文件或数据库中
        open(my $fh, '>>', 'links.txt') or die "Failed to open file: $!\n";
        print $fh "$link\n";
        close($fh);
    }
}

# 解析网页内容
$parser->parse($content);

# 完成解析
$parser->eof();