#!/usr/bin/perl

use XML::Parser;

$p2 = new XML::Parser(Handlers => {Start => \&handle_start,
                End   => \&handle_end,
                Char  => \&handle_char,
                Default => \&handle_default});
$p2->parse("ss.xml");


sub handle_start {
}

sub handle_end {
}

sub handle_char {
}

sub handle_default {
        my($p, $cl)=@_;
        print STDOUT $cl."\n";
}


my xml is look like

<Access>
  <Inter>
    <Name>hello</Name>
    <UNI>absd</UNI>
  </Inter>
</Access>