socket(Server, PF_INET, SOCK_DGRAM, 0) || die "socket: $!";
bind(Server, sockaddr_in(68, INADDR_ANY)) || die "bind: $!";
listen(Server, 5) || die "listen: $!";