"DESTINATION" "localhost" 
"HDR"
"R-ITEC" "" "ITDEC"
"DEC"
"PENDING" 08/29/01 18864
"EOS"
"EOS"

##</code><code>##

$Destination  = "localhost"
$Program_Type = "R-ITEC"
$Program_Name = ""
$Incoming_Foo = "ITDEC"
$Decision     = "PENDING"
$Date_Applied = "08/29/01"
$Appl_Number  = "18864"

##</code><code>##

while(<$cliendft>)
 {
  last if /^EOS$/;
 }
close ($clientfd);