Select Code to Download

#!/usr/bin/perl

...
) or die("Couldn't create server socket: $!\n");

async(\&client, $server->accept) while 1;