sub OpenClient{
    my $self =shift;
    use IO::Socket;

    $client = IO::Socket::INET->new(Proto    =>$ENV{FPPPRO},
                                    LocalPort=>$ENV{FPPORT},
                                    Listen   =>$ENV{FPMAXCON},
                                    Reuse    =>1) || $self->Usage ("Can't start
client: $!");

    $self->WriteLog ("Client running: Port:$ENV{FPPORT} Maxconnections:$ENV{FPMA}ON}");