Hello !

This is the simple script use for print the image to browser - I don't know why it works on Unix but doesn't work on NT server :

#!/usr/bin/perl

$file ="/home/public_html/image/06.jpg"; # Unix path

# $file ="d:/myhost/image/06.jpg"; # use it if I run on NT server

if (open(IMAGE,"<$file")) {
print "Content-type: image/jpeg\n\n";
while (<IMAGE>) {
print;
}
}
else {
print "Content-type: text/plain\n\n Cannot open file $file\n";
}



Thanks for your help !

NewAge