while ($new_sock = $sock->accept()) {
   while (defined ($buf = <$new_sock>)) {
        if (index($buf, "/DATA_String/") > 0) {
            system("sh", "/home/app_scripts/process.input", "$buf");
        } 
   }
   close ($new_sock);  ###########################
}