while(<$client>)
     { print $_;
       print $client "Username $user Pass $pass";}