#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;


my( $ac_n_value, $ai_att_cond)= @ARGV;

XML::Twig->new( twig_handlers => { qq{AC[\@n="$ac_n_value"]//AI[$ai_att_cond]} => \&print_ai_data })
         ->parsefile( "test_thandi.xml");

sub print_ai_data
  { my( $t, $ai)= @_;
    print "DESC: ", $ai->first_child( 'Desc')->sprint, "\n",
          "ID  : ", $ai->first_child( 'ID')  ->sprint, "\n"
          ;
  }