[rt-users] $CurrentUser->Load() problems...

[freebsd at coal.sentex.ca]

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();
$CurrentUser->Load(1);

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...