sub fillTemplate {
  my ($text, $hash) = @_;
  $text =~ s/%(\w)%/$hash->{$1}/g;
  return $text;
}