#!/usr/bin/perl

use warnings;
use strict;
use XML::Edifact;
use IO::File;

# open the database
XML::Edifact::open_dbm();

# read edi message
XML::Edifact::read_edi_message("test.edi");

# print xml to standout
print &XML::Edifact::make_xml_message();

# print xml to somefile
my $xml=new IO::File(">some.xml");
XML::Edifact::make_xml_message($xml);
$xml->close();

# close database
XML::Edifact::close_dbm();