#!/usr/bin/perl -w
use strict;

use XML::Parser;

XML::Parser->new( Handlers => { Start => sub { print "att: '$_[3]'\n" } })
           ->parse( '<!DOCTYPE doc SYSTEM "dummy"><doc att="an &ent; and an &amp;ent;"/>');

# prints att: 'an  and an &ent;'