[.....] > > #!/usr/local/bin/perl -w > use strict; > > open IMAGE, 'test.jpg' or die "Failed to open image $!"; > my $buf_chunk_size = 1024 * 16; > my $buffer; > binmode IMAGE; > binmode STDOUT; > > print "Content-Type: image/jpeg\n\n"; > print $buffer while read IMAGE, $buffer, $buf_chunk_size; >
[.........] This works for me =) #!Perl use strict; use CGI::Carp (fatalsToBrowser); $| = 1; my $filepath = 'some/where/the/file/is.jpg"; open IMG, "$filepath" or die "$!"; print "Content-type: image/jpeg\r\n\r\n"; binmode (IMG); binmode (STDOUT); print while (<IMG>); close IMG; Rgds, Connie -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
