my $header = qq(Content-type:application/pdf\n) .
  qq(Content-Disposition: attachment;filename=foo.pdf\n\n);

print $header;