C:\Lokale_Daten\test>ppm install XML-Edifact.ppd
 rror: can't parse  &#9632;< ? x m l   v e r s i o n = " 1 . 0 "   e n c o d i n g = " U T F - 8 " ? >
 < S O F T P K G   N A M E = " X M L - E d i f a c t "   V E R S I O N = " 0 , 4 7 , 0 , 0 " >
     < T I T L E > X M L - E d i f a c t < / T I T L E >
     < A B S T R A C T > a n   a p r o a c h   t o w a r d s   X M L / E D I   a s   a   p r o t o t y p e   i
 n   p e r l < / A B S T R A C T >
     < A U T H O R > k r a e h e @ c o p y l e f t . d e < / A U T H O R >
     < I M P L E M E N T A T I O N >
         < O S   N A M E = " M S W i n 3 2 "   / >
         < A R C H I T E C T U R E   N A M E = " M S W i n 3 2 - x 8 6 - m u l t i - t h r e a d - 5 . 8 "   /
 >
         < C O D E B A S E   H R E F = " X M L - E d i f a c t - 0 . 4 7 . z i p "   / >
         < P R O V I D E   N A M E = " X M L : : E d i f a c t "   V E R S I O N = " 0 . 4 7 "   / >
     < / I M P L E M E N T A T I O N >
 < / S O F T P K G >
 :
encoding specified in XML declaration is incorrect at line 1, column 31, byte 62 at //AZ-Guinan/Applications/P
erl/site/lib/XML/Parser.pm line 187

can not tie segment.dat:No such file or directory at //az-guinan/applications/Pe
rl/site/lib/XML/Edifact.pm line 77.

#!/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();

sub open_dbm {
    my ($directory,$fcntl) = @_;

    $directory = $XML::Edifact::Config::DAT unless $directory;
    $fcntl     = O_RDONLY                   unless $fcntl;

# HIER DER FEHLER...
    tie(%SEGMT, 'SDBM_File', $directory.'/segment.dat',   $fcntl, 0644)	|| die "can not tie segment.dat:".$!;
    tie(%SEGMR, 'SDBM_File', $directory.'/segment.rev',   $fcntl, 0644)	|| die "can not tie segment.dat:".$!;
    tie(%COMPT, 'SDBM_File', $directory.'/composite.dat', $fcntl, 0644)	|| die "can not tie composite.dat:".$!;
    tie(%ELEMT, 'SDBM_File', $directory.'/element.dat',   $fcntl, 0644)	|| die "can not tie element.dat:".$!;
    tie(%CODET, 'SDBM_File', $directory.'/codes.dat',     $fcntl, 0644)	|| die "can not tie codes.dat:".$!;

    $indent_join='';
    $indent_tab='';
    eval_xml_edifact_headers();
}

sub close_dbm {
    untie(%SEGMT);
    untie(%SEGMR);
    untie(%COMPT);
    untie(%ELEMT);
    untie(%CODET);
}

...
    tie(%SEGMT, 'SDBM_File', $directory.'/segment.dat',   $fcntl, 0644)    || die "can not tie segment.dat:".$!;
    tie(%SEGMR, 'SDBM_File', $directory.'/segment.rev',   $fcntl, 0644)    || die "can not tie segment.dat:".$!;
...