Select Code to Download

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

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

  $host = $ARGV[2]; #or whatever it is in your ARGV
  $port = $ARGV[4];
...
  my $client = IO::Socket::INET->new(
        PeerAddr => $host,
        PeerPort => $port,