Zombie problem when creating a listening Socket - Perl

HiI have written a code for Listening socket(Server) that serve multipleclients request.The Socket(Server) accept the data from clients and sendback them the same data for validation.But,I am facing a problem while running the following code .The codecreating a Zombie for each client request.---......(with 7 answers.)