Select Code to Download

        <Location /testSharing>
                Options -MultiViews
                SetHandler perl-script
                PerlResponseHandler U2D::TestSharing
        </Location>

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: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.

sub logTestMessage {
    my $message = shift;
...
        close(FILE);
    } else { print "Error opening file: ".$!."\n"; }
}