8 my $server = new Frontier::Client (
9 url => 'http://localhost:8080/selfservice/xmlrpc.cgi',
12 my $faker = new Data::Faker;
14 my $result = $server->call('FS.ClientAPI_XMLRPC.new_agent', {
15 'agent' => $faker->company,
16 'username' => $faker->username,
17 'password' => '12345',
20 #print Dumper($result);
21 die $result->{'error'} if $result->{'error'};