print "Hello welcome to the fsclient\n";
    my ($user, $passwd, $host, $port, $command, $numArgs);
    $numArgs = $#ARGV + 1;
    $command=$ARGV[7];
my $client = IO::Socket::INET->new(
        PeerAddr => 'charlie',
        PeerPort => '70000',
        Proto => 'tcp',)
    or die "cannot connect to $port at $host\n";
     while(<$client>)
     { print $_;
       print $client "Username $user Pass $pass";}
      
      close($client) or die "$!\n";
      print "connection closed\n";
[download]

#!/bin/perl -w
use IO::Socket::INET;
use strict;
            print "Hello welcome to the Fs server\n";
        my $server = new IO::Socket::INET (
           LocalHost => 'charlie',
           LocalPort => '70000',
           Proto => 'tcp',
           Listen => 1,
           Reuse => 1,
            );
    die "Could not create socket: $!\n" unless $server;        
        print "Great just created a socket\n";
        my $new_sock = $server->accept();
        print $new_sock "Fileshare Version 0.1\n";
        while(<$new_sock>)
        {
         print "Here is what i received from you\n";
         print "$_\n";}
         
         print "OK its time to close\n";    
         close($server);
[download]

I think your code never enters this loop

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

I think what you need is more like this:

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

For the other part, I don't see why this (code below) would not work. again. if the variables contain what they should. Always check your input!

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

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



holli, /regexed monk/

ok the code is working now. there is a problem with it. the first string from the server reaches the client immediately. how ever the string from the client containing the user name password is not displayed on the server side. but if i control+c and exit than it displays the string. but if i terminate from the server side nothing is displayed.