<%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();