my $data = <<STOP;
<outside>
  <inside name="Wibble">some data</inside>
</outside>
STOP

my $parser = new XML::Parser(Handlers => {
    Start => \&start_tag
});

$parser->parse($data);

sub start_tag {
    my $expat = shift;
    my $element = shift;
    my %attrs = @_;

    print $attrs{name};
}