#!perl
use strict;
use warnings;

use XML::Twig;
my $twig= XML::Twig->new( ... );


$twig->parse(<DATA>);

print $twig->root->gi,"\n";