#! /usr/bin/perl -w

# Append the PID and date/time to /tmp/pid.txt
# so that we can verify that this ran.

use HTTP::Date;
my $tmp = "/tmp/pid.txt";
open(my $fh, ">>$tmp") or die;
my $t = time2str(time);
print $fh "pid: $$ $t\n";
close $fh or die;
exit 0;