#!/usr/bin/perl -w
use strict;
use lib './lib';
require XML::IODEF::Simple;
my $report = XML::IODEF::Simple->new({
guid => 'mygroup.example.com',
source => 'example.com',
restriction => 'need-to-know',
description => 'spyeye',
impact => 'botnet',
address => '1.2.3.4',
protocol => 'tcp',
portlist => '8080',
contact => {
name => 'root',
email => 'root@localhost',
},
purpose => 'mitigation',
confidence => '85',
alternativeid => 'https://example.com/rt/Ticket/Display.html?id=1234',
alternativeid_restriction => 'private',
sharewith => 'partners.example.com,leo.example.com',
});
my $xml = $report->out();
my $hash = $report->to_tree();
warn $xml;