my $obj = bless {
	Root => $rootDir, 
	UserDir => $obj->{Root} . "Usr/$userId/",
	UserAppData = $obj->{UserDir} . "$appName/",
}, shift; #  of cause this won't work