objectData ##
##

 my $twig = XML::Twig->new
   (
   parse_param_ent => 1,
   twig_handlers => 
   {
    'draw:frame' => \&getDrawInfo,
   },
   );

 $twig->parsefile("file.xml");

sub getDrawInfo
{
  my ($t, $data)= @_;
  print "DEBUG " . $data->text . "\n";
}