You can do by this way
#!/usr/bin/perl
print "Content-Type:image/gif\n\n";
open(FILE,"filename");
@file=(<FILE>);
foreach $file(@file)
{
print "$file";
}
close(FILE);
vakeel
--- Davide Copelli <[EMAIL PROTECTED]> wrote:
> I am using this script to print an image using <img>
> tag
>
> print "Content-type:image/gif\n\n";
> @gifdata = `cat $giffile`;
> print @gifdata;
>
> The problem is that it works on unix but not on
> windows operating sistem
>
> Can someone give me an altenative way to print an
> image without extra perl
> modules ?
>
> Thanks
>
>
>
__________________________________________________
Do you Yahoo!?
New DSL Internet Access from SBC & Yahoo!
http://sbc.yahoo.com
