#!/usr/bin/perl -w # INCLUDES use strict; use vars qw($VAR1 $tree $el $index); use XML::Registry; # MAIN # check for command line argument die "Syntax: xml2perl.pl <filename>\n\n" unless $ARGV[0]; # open file open(XML,$ARGV[0]) || die "Cannot open $ARGV[0] for read: $!"; # read file into $pdump my $pdump = eval(join("",<XML>)); # create new instance of XML::Registry my $registry = new XML::Registry; # print the results print $registry->pl2xml($pdump);