If you happen to be in mod_perl, check out the send_fd() method on the Request object.

Here's sample (untested) code based on the Eagle book:

  my $fh = Apache::gensym();
  open $fh, "..." or die "Cannot open file: $!\n";
  $r->send_fd($fh);
  close($fh);
[download]

-- Eric Hammond