I've used a header such as this with success:

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

print $header;
[download]

YMMV, so please adapt as needed.