转载于本人博客园
https://www.cnblogs.com/kenso...
index.html
<html>
<body>
<h2> perl read img </h2>
<img src = "display.html">
</body>
</html>display.html可以改写成display.cgi
display.html
#! /usr/bin/perl
#定义图片和图片类型（根据需求可以改写成变量）
$image = "1.jpg";
$imgType = 'jpg';
#打开图片
open(IMG, "$image") or die;
#使用二进制文件打开
binmode IMG;
binmode STDOUT;
#输出
print "Content-type: image/$imgType\n\n";
print while (<IMG>);
close(IMG);
exit(0);
**粗体** _斜体_ [链接](http://example.com) `代码` - 列表 > 引用。你还可以使用@来通知其他用户。