my $db_name = $DATABASE2;
my $suffix  = 'NO HTTP_REFERRER';

if (defined $ENV{'HTTP_REFERRER'} &&
    length  $ENV{'HTTP_REFERRER'} > 0)
{
   $db_name = $database;
   $suffix  = "<A HREF=\"$ENV{'HTTP_REFERRER'}\">$ENV{'HTTP_REFERRER'}</a>";
}

$shortdate = `date +"%D %T %Z"`; 
chomp $shortdate;

open(my $db, '>>', $db_name) or die "Cannot open database '$db_name' for appending: $!";

print $db "$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> - $suffix\n";

close($db) or die "Cannot close database '$db_name': $!";