使用Perl CGI.pm从web下载文件

use CGI;

my $cgi = CGI->new;

my $file_url = $cgi->param('file_url');  # 从表单或URL参数中获取文件URL

use LWP::Simple;

my $file_content = get($file_url);

print $cgi->header(
    -type => 'application/octet-stream',
    -attachment => 'downloaded_file.txt'
);

print $file_content;

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use LWP::Simple;

my $cgi = CGI->new;
my $file_url = $cgi->param('file_url');
my $file_content = get($file_url);

print $cgi->header(
    -type => 'application/octet-stream',
    -attachment => 'downloaded_file.txt'
);
print $file_content;