gistfile1.pl

# siamo in un contesto in cui nello 
# scope c'e` $self

my $sh = sub {

    $self->... # $self e` usabile

    # il resto come solito
    my ($p, $el, %atts) = @_;
    $p->setHandlers('Char' => \&spec)
        if ($el eq 'special');
    ...
}

$parser = XML::Parser::Expat->new;
$parser->setHandlers('Start' => $sh );

open(FOO, '<', 'info.xml') or die "Couldn't open";
$parser->parse(*FOO);
close(FOO);