my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file($filename);
my @devinfo = $doc->findnodes('//Device/Dev_Info');

foreach my $devinfo (@devinfo) {
    my($dev) = $devinfo->findnodes('./dev_name');
    print $dev->to_literal, "\n";
}