[rt-users] Error

[JJussi]

Hi!
(using RT 3.8.7)
I have made simple Perl script to add users and queues to database. 
However, I get next error message:
RT::User::Validate Unimplemented in RT::Record. (/opt/rt3/lib/RT/Record.pm line 267)

Script is:
#!/usr/bin/perl
# luojono -perl scripti
use warnings;
use strict;
use RT::Interface::CLI qw(CleanEnv);
use RT::User;
use RT::Queue;
use RT::Queues;

RT::LoadConfig();
RT::Init();

my $user = RT::User->new($RT::SystemUser); 
my $queues = new RT::Queues($RT::SystemUser);

my $domainosa = 'domain.fi';

my $uid = $user->Create( 
  Name          => $vars{nimi},
  EmailAddress  => $vars{oemail}, 
  RealName      => $vars{omistaja},
  FreeformContactInfo
                => 'Tiketti omistaja: '.$vars{kuvaus},
  NickName      => '', 
  Privileged    => 1,
  Password      => , 
  Address1      => '',
  Address2      => '', 
  City          => '',
  State         => '',
  Zip           => '',
  Country       => '',
  WorkPhone     => '',
  MobilePhone   => '',
);
                                                        
my $qid = $queues->Create(
  Name                  => $vars{nimi},
  Description           => $vars{kuvaus},
  CorrespondAddress     => $vars{nimi}.'@'.$domainosa,
  CommentAddress        => $vars{nimi}.'-comment@'.$domainosa,
  InitialPriority       => $vars{minpri},
  FinalPriority         => $vars{maxpri},
  DefaultDueIn          => $vars{maxaika},
);      

-- 
JJussi