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

##</code><code>##

#!/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);