package MyParser;

use strict;
use base qw(XML::Parser);

sub my_start {
   my ($self, $element, %attributes) = @_;
   $self->{_local_variable} = $something
}