#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
chomp( my $host = `hostname` ); 
 
# Read the Description File 
my $desc_file = "/inputfile"; 
open my $input_fh, '<', $desc_file or die "Could not open $desc_file: $!\n"; 
 
while( my $text = <$input_fh> ){ 
  my ( $ahost, $desc, $apps ) = split /\:/, $text; 
  if( $host eq $ahost ){ 
    # Do something with $ahost, $desc and $apps 
  } 
}  
 
close $input_fh or die "Could not close $desc_file: $!\n";