sub fill_template {
  my ($string,$values) = @_;
  $string =~ s!\$\{(.*?)\}!$values->{$1}!eg;
  $string
};