opendir my $LOGDIR, qq{./+logs/~$uid};
    my @logs = map (
        do {
            $_ if $_ !~ m/^\./xms
        }
    , readdir $LOGDIR);
    closedir $LOGDIR;