#!E:/Perl/bin/perl.exe -w use strict; use Bytes; use CGI; my $cgi = new CGI; #my $cgi_cust = $cgi->param("cust"); #my $cgi_bill = $cgi->param("bill"); my $cgi_cust = "Telstra"; my $cgi_bill = "telstra-2003-07-28.jpg"; die unless defined $cgi_cust && defined $cgi_bill; my $root = "E:/appdoc/Internet Banking/Bills & Notices"; my $img; # load the image into memory open IMG, "<", "$root/$cgi_cust/$cgi_bill" or die; binmode IMG; seek IMG, 0, 2; my $size = tell IMG; seek IMG, 0, 0; sysread IMG,$img,$size; close IMG; if (defined $img) { binmode STDOUT; print $cgi->header( -type=>'image/jpeg'); print $img; # I think something is doggy here } else { print $cgi->header, "

IMAGE NOT FOUND

\n"; }