my $last_part = $p->is_dir ? $p->dir_list(-1) : $p->basename;