host();
my $it=1;
my %appHash=();
if($it == 1){
 open(INPUTFILE,"<Services.conf")or die("unable to Services fiel");
while (<INPUTFILE>) {
chomp;
push @svcArray, (split /:/, $_, 3)[2];
}
        foreach my $svc (@svcArray){
$appHash{it} = $svc;
print "\n\t\t\t$it. $appHash{$it}\n";
$size = $it;
$it++;
        }
        print "\n";
print "\t\t\tA for All \n";
        print "Please choose a number from the list above: ";
        chop($input=<STDIN>);
        $input=trim($input);
        print " The input after chopping:$input\n";
}

my $appCmnStr = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><env:Envelope xmlns:env=\"http://schemas.xmlsoap.org/soap/envelope/\"> 
                                <env:Body>  <oos:req xmlns:oos=\"http://www.ecomm.com\">;
send_svc($input);
exit(0);

#################
sub send_svc{

my @aArray;
if(@_[0] && (lc @_[0] ne 'z')){
        @aArray = (@_[0]);
        }else{
                @aArray= (1 .. $size);
        }
foreach $svcObjNum (@aArray){
if($appHash{$svcObjNum}){
$appsStr = $appsStr."<oos:obj class=\"$appHash{$svcObjNum}"/>";
}
}

##</code><code>##

                 
                        1.  Recruitment
                 
                        2.  Payments
                 
                        3.  Retail
                 
                        4.  Legal
                 
                        z. all
Please choose a number from the list above: