Smells like a bug.

Untested fix - change line 88 of that script to read:

my($Number,$PPosted,$PUsername,$PIP,$PSubject,$PBody,$PAnon,$Pnumber);


Charles Capps
Former UBB.classic Maintainer