$date=`/bin/date`;
                print "date is -->$date<--";
                print $new_sock "[$client_ipnum] $client_host connected\n";