% if($ddc_generatePDF)
% {
<& '/pdf_templates/generatePDF.html',
  data => $data,
  data2 => $data2,
  fileName => 'D:/project1/printouts/mypdf.pdf'
&>

<& '/pdf_templates/displayPDF.html',
  fileName => 'D:/project1/printouts/mypdf.pdf'
&>
% }

##</code><code>##

<%args>
data
data2
fileName
</%args>
<%init>
use constant mm => 25.4/72;
use constant in => 1/72;
use constant pt => 1;
</%init>
<%perl>
PDF::Reuse::prFile($fileName);
...some other commands...
PDF::Reuse::prEnd();

##</code><code>##

<%args>
$fileName
</%args>

<%init>
use Apache2::SubRequest;
my $subr = $r->lookup_file($fileName);
return 404 unless -f $fileName and $subr->status == 200;
$r->content_type($subr->content_type);
# $r->send_http_header;
return 200 if $r->header_only;
$subr->run;
$m->abort;
</%init>