read&parse(skeleton);
run();

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