List of Services
==================
HR:1453:Recruitment:Up
FS:2355:Payments:Down
RS:4555:Retail:Up
LD:682111:Legal:Up

##</code><code>##

Services List:
==============
1. Recruitment::Up
2. Payments:Down
3. Retail::Up
4. Legal::Up
Please enter the # to call the service:
Enter A for all the services

##</code><code>##

host();
my $it=1;
my %appHash=();
if($it == 1){
 open(INPUTFILE,"<Services.conf")or die("unable to Services fiel");
while (<INPUTFILE>) {
                chomp;
                my $svsc = $_;
                @svcArray= split(/:/,$svsc);
}
close (INPUTFILE);
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 enter # for the service you're trying to call:");
chop($input=<STDIN>);
$input=trim($input);# I've function written for taking the spaces of input
print " The input after chopping:$input\n";
}