And if you're returning something that you think the browser can display inline (like a graphic), you could use this:

print "Content: $page\r\n";
print "Content-disposition: inline; filename=\"$page\"\r\n";
my $size = (-s "$page");
print "Content-length: $size\r\n";
print "Content-type: application/octet-stream\r\n";
print "\r\n";

local $/ = undef;
open (F, "<$page") || die;
  binmode(F); binmode(STDOUT);
  print <F>;
close(F);
[download]

---

THE UNIX CAR: you have to rebuild the engine whenever you hang a new air freshener in the car.