#!/usr/bin/perl

use strict;
use XML::Twig;

my $xml = <<__XML__;
<draw:frame draw:id="id2" draw:layer="layout" draw:name="objectName" draw:style-name="gr1" draw:text-style-name="P3">
  <draw:text-box>
    <text:p text:style-name="P1">
      <text:span text:style-name="T2">objectData</text:span>
    </text:p>
  </draw:text-box>
</draw:frame>
__XML__

my $twig = XML::Twig->new(
  twig_handlers => { 'draw:frame' => \&handler },
  pretty_print => 'indented'
);

$twig->parse($xml);

sub handler {
  my ($twig, $elt) = @_;
  printf "%s\n", $elt->{'att'}->{'draw:name'};
}