Select Code to Download

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

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

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