perl тэг img - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Вебмастеру (http://forum.oszone.net/forumdisplay.php?f=22)

- - perl тэг img (http://forum.oszone.net/showthread.php?t=56957)

что нужно добавить или убрать в этом сценарии ,чтобы отобразить рисунок в браузере

путь к рисунку /usr/local/www/image/abs075.jpg

сервер apache13

#! /usr/bin/perl -w
use strict;
use CGI qw(:standard escapeHTML escape);
use lib qw(/usr/local/apache/lib/perl);

print header(),
start_html(-title =>"ris", -bgcolor=>"white"),
img({-src=>"http://192.168.0.5/image/abs075.jpg"}),

end_html();
exit(0);

если запросить html файл с рисунком то все ок
а сценарий на перл не отоброжает

заранее спасибо

cool2
Попробуйте here-doc вариант:

print "Content-type: text/html\n\n"

print <<END
<html><head>
<title></title>
</head>
<body>
<img src="http://192.168.0.5/image/abs075.jpg">
</body></html>
END

dmitryst спасибо все работает, эт я не внимательный был:)