print $q->header(-type=>'image/gif',-expires=>'+3d');

##</code><code>##

print header(-type=>'application/pdf'),$buffer;