if (  THERE IS A $ENV{'HTTP_REFERER'}  ) {
$shortdate = `date +"%D %T %Z"`; 
chop ($shortdate);
    open (DATABASE,">>$database");
        print DATABASE "$ENV{'REMOTE_ADDR'} - $shortdate - $ENV{'HTTP_USER_AGENT'} - <A HREF=\"http://$ENV{'HTTP_HOST'}$ENV{'REQUEST_URI'}\">http://$ENV{'HTTP_HOST'}$ENV{'REQUEST_URI'}</a> - <A HREF=\"$ENV{'HTTP_REFERER'}\">$ENV{'HTTP_REFERER'}</a>\n";
    close(DATABASE);
}
else{
$shortdate = `date +"%D %T %Z"`; 
chop ($shortdate);
    open (DATABASE2,">>$DATABASE2");
        print DATABASE2 "$ENV{'REMOTE_ADDR'} - $shortdate - $ENV{'HTTP_USER_AGENT'} - <A HREF=\"http://$ENV{'HTTP_HOST'}$ENV{'REQUEST_URI'}\">http://$ENV{'HTTP_HOST'}$ENV{'REQUEST_URI'}</a> - NO HTTP_REFERER\n";
    close(DATABASE2);
}