my $logfile = qq!$ENV{"DOCUMENT_ROOT"}/my_logfile!;
   open(LOG, ">>$logfile") || die "Can't open $logfile: $!";
   print LOG "Some message from my CGI script!\n";