a.b.c.d XYZ v.x.y.z v_ihsnode abc_logihs1 abc_appihs1 nodeagent abc_api1.1 abc_api1.2 ##

##


use XML::Smart;
use strict;
use warnings;

$ENVFILE="/appl/TOPOLOGY.xml";
my $ENVxml = XML::Smart->new($ENVFILE) || die ("Could not find details file.");
my $env = $ARGV[0];

if ( $ARGV[0] eq "fetch" ) {
        my @envname=$ENVxml->{OUTMOST}->{MYENVDETAILS}->{ENVDETAILS}('[@]','id');
foreach my $i (@envname) {
                print "$i\n";
}
}