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

        my $result = $client->setUserOffers(
                XRC_CLIENTID,
                $username,
                $pkg);
}