my %seg;
my $content = ExtractAllSegments(ReadFile("template.html"), \%seg);