#THE SERVER
#!/usr/bin/perl -w
use strict;
use IO::Socket;

my $port = 6941;
my $auth = " " ;
my $code = " " ;

#PREVENT ZOMBIES
$SIG{CHLD} = 'IGNORE';

#CREATE SOCKET
my $listen_socket = IO::Socket::INET->new(LocalPort => $port,
                                          Listen => 10,               
+                                             Proto => 'tcp',
                                          Reuse => 1);

die unless $listen_socket;

warn "Server ready. Waiting for connections ... \n";

#GET CONNECTIONS
my $socket = $listen_socket->accept;

#REQUEST AUTHORISATION
print $socket "Connected to Server\n";
print $socket "Please insert auth code:\n"; #ASK FOR CODE
$code = <$socket>;   #GET CODE
verify($code,$socket); #SEND FOR VERIFICATION
exit; #SHOULD NEVER GET HERE 

#VERIFY AUTHORISATION CODE

sub verify{
my ($code,$socket) = @_;
my $auth_code = "6941";
if($code eq $auth_code)
{ 
    $auth = "1";
    print $socket "Accepted\n\n";
    load_interface($socket);
} 
else
{
    $auth = "0";
    print $socket "Good bye\n\n";
    exit;
}
}

sub load_interface{
my $socket = $_[0];
exit unless( $auth == "1");
open(CONFIG,"conifg") || die "Can't load config file\n";  #THIS WILL B
+E A LIST OF COMMANDS
my $data = " ";
while(<CONFIG>)
{
    $data = $data . $_;
}
print $socket $data;
print $socket "\n\nWhat would you like to do (0\1\2\3\....): ";
my $cmd = <$socket>;  #GET COMMAND
cmd($cmd,$socket);
}


#THIS WILL DO COMMAND. ONLY FOR TEST PURPOSES AT THE MOMENT
sub cmd{
my( $cmd,$socket) = @_;
exit if($cmd == "q");
print $socket "\n\nYou chose option $cmd!!!!!!\n\n";
load_interface();
}
[download]

As you can see very basic. Not very pretty. And doesn't work.
The problem that I have is when the server tries to get the authorisation $code from the client $code doesn't get set at all. And when the script tries to use it later Perl says that it is a un-initialised value. This says to me that the code typed in by the client user either hasn't been recieved by the server or didn't send from the client.
Here's the client (taken from example in docs)

#THE CLIENT
use strict;
use IO::Socket;
my ($host, $port, $kidpid, $handle, $line);

    

    $handle = IO::Socket::INET->new(
                    PeerAddr  => "localhost",
                    Proto     => 'tcp',
                    PeerPort  => "6941")
       or die "can't connect to port 6941 on host localhost: $!";

        print STDERR "[Connected to host:6941]\n";
     
    $handle->autoflush(1);            

    die "can't fork: $!" unless defined($kidpid = fork());

    
    if ($kidpid) {
    while (defined ($line = <$handle>)) {
        print STDOUT $line;
    }
    kill("TERM", $kidpid);          
    }
   
    else {
    
    while (defined ($line = <STDIN>)) {
        print $handle $line;
    }
    }
[download]

This is where I'm still a bit iffy. I'm not to sure about fork and the whole $kidpid idea. But I'm still reading so I'll eventually get it.