open (CL, "clients");
my $list;
while (<CL>){
      chomp;
      print "$list\n";
}