$CurrentUser->Load() problems

Not sure if this is more appropriate for -users or -devel…

I’m trying to write a script that will go through a queue, and kill all
tickets that are older than a given time, but am having troubles loading a
CurrentUser object. My code is like this:

my $CurrentUser = RT::CurrentUser->new();

Which, from the perldoc, seems correct? But if I run it, I get this:

Can’t call method “CaseSensitive” on an undefined value at /usr/local/rt/public_html/lib//RT/Record.pm line 128.

Anyone have any pointers? Or suggestions? All I’m doing is creating a new
empty ticket, loading in the tickets that match the query search, and
setting the status to dead…