print "Content-type: image/jpeg\n\n"; print $Pic->{_Data};