#!/usr/bin/perl -w

use strict;
use diagnostics;

use CGI;
my $query=new CGI;
print $query->header();
print "This is a test\n";
print STDERR "This is a logfile test\n";

##</code><code>##

==> /var/log/apache/error.log <==
This is a logfile test

==> /var/log/apache/error.log <==
This is a logfile test