my $socket = IO::Socket::INET->new(
LocalPort => 1880,
Type      => SOCK_STREAM,
Reuse     => 1,
Listen    => 10 )
or die "Big Problem with the Server, Man : $!\n\n";

while ( $test ) {
	my $date = localtime();
	warn "Started up: $date\n";

	while ( my $client = $socket->accept() ) {
		my $message = 
<$client>



;
		warn "$message";
		chomp $message;

		print $client 'Message recieved', "\n" if $message;

		if ( $message eq 'die' ) {
		#etc., etc.
		}
	}
}