清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

use XML::Simple;

my $simple = XML::Simple->new();             # initialize the object
my $tree = $simple->XMLin( './data.xml' );   # read, store document

print "The user prefers the font " . $tree->{ font }->{ name } . 
    " at " . $tree->{ font }->{ size } . " points.\n";