sub new {

    my $class = shift;

    my ($uid, $root, $app) = @_;

    my $obj = bless {} => $class;

    $obj->{Root}        = $root;
    $obj->{UserDir}     = "$obj->{Root}/Usr/$uid/";
    $obj->{UserAppData} = "$obj->{UserDir}$app";

    return $obj;

    }