#!/usr/bin/perl -w   
use strict;


#This is a sample trigger I use to test 
#with. This could be a mod_perl script
#that logged to a database directly.
#No further instructions available, use
#your imagination.

open (FILEHANLDE, ">>/tmp/trigger.log");
my $time = localtime(time());
print FILEHANLDE ("$time \n");
close(FILEHANLDE);