Select Code to Download

package U2D::TestSharing;

...
}

1;

<IfModule mpm_worker_module>
    StartServers          1 
...
    ServerLimit           1
    PerlInterpMax         1
</IfModule>

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

02-08-2011 07:42:27:552 2669-3063479152: Waiting for lock.
02-08-2011 07:42:27:565 2669-3063479152: Acquired lock.
...
02-08-2011 07:42:27:594 2669-3013122928: Initializing fruits.
02-08-2011 07:42:27:594 2669-3013122928: Releasing lock.
02-08-2011 07:42:27:594 2669-3013122928: I like to eat apple, banana, 
+peach.

use strict;
use warnings FATAL => 'all';
...
use U2D::TestSharing ();

1;