opendir(my $LOGDIR, "./+logs/~$uid") or die "$!";
my @logs = map {!/^\./xms ? $_ : "" } readdir($LOGDIR);
closedir($LOGDIR);