#!/usr/bin/perl -w
use strict;
use Fcntl qw(:DEFAULT :flock);
my ($key, $value, $time);

print "Content-type: text/plain\n\n";

open(FILEHANDLE, ">>/tmp/trigger.log") or die "Can not open file: ";
flock(FILEHANDLE, LOCK_UN);
$time = time();
print FILEHANDLE ("$time\n");

while(($key, $value) = each(%ENV)) {
	print FILEHANDLE ("$key $value\n");
}
print FILEHANDLE ("\n\n");
flock(FILEHANDLE, LOCK_EX);
close(FILEHANDLE);