#include header.dhcp
group {
  #block subnet1 subnet1Sub
}
#block hosts-declaration hostdeclSub
#include footer.dhcp

##</code><code>##

read&parse(skeleton);
run();

sub hostdeclSub {
    $res .= "host $hosts{$_}{name}  {  hardware-address $hosts{$_}{mac}  }\n" for keys %hosts 
   return $res
}