sub new {
    my $obj = bless {}, shift;
    my ($uid, $root, $app) = @_;

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

    return $obj;
}