#!/usr/bin/perl


    open(MYLOG, ">>hosts.dat");
    print MYLOG "$ENV{REMOTE_ADDR} \@ $ENV{REMOTE_HOST}\n";
    close(MYLOG);

    open(MYLOG, ">>hosts.cnt");
    print MYLOG ".";
    close(MYLOG);

    
    print "Content-type: text/html\n\n";

