my $name = join '-', (
	@prefix,
	( map @$_, grep { $do_use_path } [ split /:/, $path ] ),
	$name,
	$suffix,
);