$host = $ARGV[2]; #or whatever it is in your ARGV
  $port = $ARGV[4];

  my $client = IO::Socket::INET->new(
        PeerAddr => $host,
        PeerPort => $port,