binmode STDOUT;  # a good idea
print $q->header(-type => "image/jpeg" );