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";