print "Forked child printing CMDSTART to client\n";
        $date=`date`;
print "\$date $date";
        &S_print ("[$client_ipnum] $client_host $date connection attempt logged\n");
        print "\$date $date";
        &S_print ("This is a private server. All connections are logged\n");
        &S_print ("username:\n");
        print "sent username:\n";