my $server = IO::Socket::INET->new(
    Listen => 5,
    LocalAddr => '192.168.0.0',
    LocalPort => 5050,
    Proto     => 'tcp'
) ;