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"; }
}