On Tue, 24 Feb 2004, Scott Walters wrote:
*snip*
> sub message {
> my $thursdayith = $mday + 6;
> my $tail = substr($thursdayith, -1, 1);
> $thursdayith .= {
*snip*
You should change the first line of message() to this:
my $thursdayith = (localtime (time() + 6*24*60*60))[3];