Select Code to Download

<host name=jimmy>
   <function>web</function>
   <function>dns</function>
   <location>miami</function>
</host>

#!/usr/bin/perl

...
        print $e->{name}, "\n";
        print $e->{function}, "\n";
}