怎么把一个文件“读”到客户端？（已解决）

bono

从网上找到下面的代码，但执行image.cgi后显示不出图片来。请问是什么原因，谢谢！

image.cgi

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. $file = '/usr/local/etc/httpd/htdocs/images/picture.gif';
   
5. 
   
6. print "Content-Type: image/gif\n\n";
   
7. open(GIF,"<$file") || die "Can't open GIF\n";
   
8. while (read(GIF,$buffer,16384)) {
   
9.    print $buffer;
   
10. }
    

复制代码

bono

在本地机NT系统上怎么调试都显示不出图像来，换到UNIX服务器上就能显示了。