#!/usr/bin/perl

use strict;

use SOAP::Lite +trace => "debug";

package XRC;

# This is the domain clientID
use constant XRC_CLIENTID       =>      12345;

sub addUser {
        my ($username, $password, $pkg) = @_;
        
        my $client = connectXrc();

        my $result = $client->createUser(
                XRC_CLIENTID,
                @{$pkg},
                $username, 
                $password);
}

sub connectXrc {
        # xrc.wsdl handles the authentication
        my $client =  SOAP::Lite
        ->uri("urn:xrc.ws.everyone.net")
        ->service("file:///path/to/xrc.wsdl")
        ->proxy("https://ws.everyone.net/ws/services/xrc");
        return $client;
}

##</code><code>##

#!/usr/bin/perl

use XRC;

my @pkg = 5544;

print "username: ";
my $username = <STDIN>;
chomp($username);

print "password: ";
my $password = <STDIN>;
chomp($password);

XRC::addUser($username, $password, \@pkg);