+ print $input->header(-charset => $charset,
+ -type => get_mime($opts{format}),
+ -vary => 'negotiate,accept-language',
+ -last_modified => strftime("%a, %d %b %Y %T %z",
+ localtime($last_modified)),
+ -expires => strftime("%a, %d %b %Y %T %z",
+ localtime($last_modified + (12*3600))),
+ );