sub send{
  my ($r) = @_;

  my $file = "/tmp/out.pdf";
  my $file_size = = -s $file;
    
  my $attach_name = basename($file);

  $r->headers_out->set('Accept-Ranges' => 'bytes');
  $r->headers_out->set('Content-Disposition' => "inline; filename=\"$attach_name\"");
  $r->set_content_length($file_size);
  
  $r->content_type('application/pdf');

  unless ((my $status = $r->meets_conditions) == OK) {
    return $status;
  }

  $r->sendfile($file);
    
  return OK;
}