#!/usr/bin/perl -w # INCLUDES use strict; use XML::Parser; use XML::Registry; # MAIN # check for command line argument die "Syntax: xml2perl.pl <filename>\n\n" unless $ARGV[0]; # create new parser instance my $parser = new XML::Parser(Style => 'Tree'); # parse the file into a tree my $tree = $parser->parsefile($ARGV[0]); # create new instance of XML::Registry my $registry = new XML::Registry; # print the results print $registry->xml2pl($tree);