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