使用纯Perl获取blob上传的数据

use CGI;

# 创建CGI对象
my $cgi = CGI->new;

# 获取上传的blob数据
my $blob_data = $cgi->param('blob');

# 保存blob数据到文件
open(my $file, '>', 'uploaded_blob.txt') or die "Cannot open file: $!";
print $file $blob_data;
close($file);

# 返回成功的响应
print $cgi->header('text/plain');
print "Blob data uploaded successfully!";