- print OUTFILE "<!-- TMPL_INCLUDE NAME=\"help-top.inc\" -->\n";
- print OUTFILE ($type eq 'create') ? "<div class=\"main\">\n$help\n</div>" : $help;
- print OUTFILE "\n<!-- TMPL_INCLUDE NAME=\"help-bottom.inc\" -->\n";
- close OUTFILE;
+ print $fh
+ " [% INCLUDE 'help-top.inc' %]\n",
+ $type eq 'create' ? "<div class=\"main\">\n$help\n</div>" : $help,
+ "\n[% INCLUDE 'help-bottom.inc' %]\n";
+ close $fh;