print "Content-type: image/jpeg\n\n"; print $socket "$MESSAGE\n"; read($socket, $buffer,2097152); print "Content-type: image/jpeg\n\n"; print substr($buffer,1); open (OUTIMAGE,">/usr26/wcdb/log/plottest.jpg"); binmode(OUTIMAGE); print OUTIMAGE substr($buffer,1); close(OUTIMAGE);