https://adewakun.blogspot.com/2018/06/tutorial-socket-server-with-perl.html