Select Code to Download

#!/usr/bin/perl

use strict;
...
          "ID  : ", $ai->first_child( 'ID')  ->sprint, "\n"
          ;
  }

perl test_thandi CCC '@n=AAA'
perl test_thandi CCC '@n="AAA" or @set="y"'