#!perl
use strict;
use HTML::Entities;
open OUT,'>', 'template.html' or die "$!";
print OUT '';
while (){
print OUT encode_entities($_);
}
print OUT '';
__DATA__
[% FOREACH host IN hosts %]
|
|
[% FOREACH int IN host.interfaces %]
|
[% FOREACH ip IN int.secondaries %]
|
[% END %]
|
[% END %]
|
|
|
|
|
[% END %]