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