$server = IO::Socket::INET->new(LocalPort=>$config{'port'},
                                Type=>SOCK_STREAM,
                                Proto=>'tcp',
                                Reuse=>1,
                                Listen=>1)
        or die "Fatal Error opening the socket! $! : $@\n";