Select Code to Download

<HOSTNAME name='apple'>
<PATROL>
...
</ACL>
</PATROL>
</HOSTNAME>

use strict;
use warnings;
...
    print $permissions->to_literal, "\n";
    print $host->to_literal, "\n";
  }