Help for this page
#!/usr/bin/perl use strict; ... } ## end while ( defined $conSocket)
#!/usr/bin/perl use strict; ... sleep 1; } ## end while (1)