        <Location /testSharing>
                Options -MultiViews
                SetHandler perl-script
                PerlResponseHandler U2D::TestSharing
        </Location>

##</code><code>##

02-08-2011 13:09:40:037 9209-4216514368: Waiting for lock.
02-08-2011 13:09:40:045 9209-4216514368: Acquired lock.
02-08-2011 13:09:40:045 9209-4216514368: Initializing fruits.
02-08-2011 13:09:40:045 9209-4216514368: Releasing lock.
02-08-2011 13:09:40:045 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:40:443 9209-4216514368: Waiting for lock.
02-08-2011 13:09:40:443 9209-4216514368: Acquired lock.
02-08-2011 13:09:40:443 9209-4216514368: Releasing lock.
02-08-2011 13:09:40:443 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:40:941 9209-4216514368: Waiting for lock.
02-08-2011 13:09:40:941 9209-4216514368: Acquired lock.
02-08-2011 13:09:40:942 9209-4216514368: Releasing lock.
02-08-2011 13:09:40:942 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:000 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:001 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:001 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:001 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:014 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:014 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:014 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:014 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:062 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:063 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:063 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:063 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:090 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:090 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:090 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:090 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:119 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:119 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:119 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:120 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:146 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:146 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:146 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:146 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:191 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:192 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:192 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:192 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:222 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:222 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:222 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:222 9209-4216514368: I like to eat apple, banana, peach.
02-08-2011 13:09:41:253 9209-4216514368: Waiting for lock.
02-08-2011 13:09:41:253 9209-4216514368: Acquired lock.
02-08-2011 13:09:41:253 9209-4216514368: Releasing lock.
02-08-2011 13:09:41:253 9209-4216514368: I like to eat apple, banana, peach.

##</code><code>##

sub logTestMessage {
    my $message = shift;
    my $tid = APR::OS::current_thread_id();
    if(open(FILE,'>>','/var/www/testSharing.log')) {
        print FILE $time{'dd-mm-yyyy hh:mm:ss:mmm'}.' '.$$.'-'.$tid.': '.$message."\n";
        close(FILE);
    } else { print "Error opening file: ".$!."\n"; }
}