print $client "Username $user Pass $pass";
  while(<$client>)
  {
    print $_;
    <STDIN>; #read input from user (changes $_!)
    print $client $_;
  }