diff --git a/fhem/contrib/AttrTemplate/99_valetudoUtils.pm b/fhem/contrib/AttrTemplate/99_valetudoUtils.pm
new file mode 100644
index 000000000..7b2d2bac2
--- /dev/null
+++ b/fhem/contrib/AttrTemplate/99_valetudoUtils.pm
@@ -0,0 +1,149 @@
+##############################################
+# $Id$
+# from myUtilsTemplate.pm 21509 2020-03-25 11:20:51Z rudolfkoenig
+# utils for valetudo v2 API MQTT Implementation
+# They are then available in every Perl expression.
+
+package main;
+
+use strict;
+use warnings;
+use JSON;
+
+sub
+valetudoUtils_Initialize {
+  my $hash = shift;
+  return;
+}
+# Enter you functions below _this_ line.
+
+# valetudo_w return a string for dynamic selection setList
+sub valetudo_w {
+my $NAME = shift;
+my $setter = shift;
+# this part reads segments, it's only filled if Provide map data is enabled in connectivity
+if ($setter eq 'segments') {
+  my $json = ReadingsVal($NAME,'segments','select');
+  my $decoded = decode_json($json);
+  return join ',', sort values %$decoded
+  }
+# this part read preset which contains a full json for preset zones
+if ($setter eq 'presets') {
+  my $json = ReadingsVal($NAME,'presets','select');
+  my $decoded = decode_json($json);
+  my %t;
+  for (keys %$decoded) { $t{$decoded->{$_}->{'name'}} = $_ } # build a new hash only with zone id and zone name
+  return join ',', sort keys %t 
+  }
+# this part is for study purpose to read the full json segments with the REST API like
+# setreading alias=DreameL10pro json_segments {(qx(wget -qO - http://192.168.90.21/api/v2/robot/capabilities/MapSegmentationCapability))}
+if ($setter eq 'json_segments') {
+  my $json = ReadingsVal($NAME,'json_segments','select');
+  my $decoded = decode_json($json);
+  my @array=@{$decoded};
+  my %t;
+  for (@array) { $t{$_->{'name'}} = $_->{'id'} }
+  return join ',', sort keys %t 
+  }
+}
+##############################################################
+# valetudo_w return a complete string for setList right part
+sub valetudo_c {
+my $NAME = shift;
+my $EVENT = shift;
+my $ret = 'error';
+my ($cmd,$load) = split(q{ }, $EVENT,2);
+my $devicetopic = InternalVal($NAME,'DEVICETOPIC',"valetudo/$NAME");
+
+# x_raw_payload like
+# /MapSegmentationCapability/clean/set {"segment_ids":["6"],"iterations":1,"customOrder":true}
+if ($cmd eq 'x_raw_payload') {$ret=$devicetopic.$load}
+
+# this part return an array of segment id's according to selected Names from segments (simple json)
+if ($cmd eq 'clean_segment') {
+  my @rooms = split',', $load;
+  my $json = ReadingsVal($NAME,'segments','');
+  my $decoded = decode_json($json);
+  my %t = reverse %$decoded;
+  my @ids;
+  for ( @rooms ) {push @ids, $t{$_}}
+  my %Hcmd = ( clean_segment => {segment_ids => \@ids,iterations => 1,customOrder => 'true' } );
+  $ret = $devicetopic.'/MapSegmentationCapability/clean/set '.toJSON $Hcmd{$cmd}
+  }
+
+# this part return the zone id according to the selected Name from presets (zones) (more complex json)
+if ($cmd eq 'clean_zone') {
+  my $json = ReadingsVal($NAME,'presets','');
+  my $decoded = decode_json($json);
+  my %t;
+  for (keys %$decoded) { $t{$decoded->{$_}->{'name'}} = $_ }
+  $ret = $devicetopic.'/ZoneCleaningCapability/start/set '.$t{$load}
+  }
+
+# this part is for study purpose to read the full json segments with the REST API
+# this part return an array of segment id's according to selected Names from json_segments (complex json)
+if ($cmd eq 'clean_segment_j') {
+  $cmd = 'clean_segment';             # only during Test
+  my @rooms = split',', $load;
+  my $json = ReadingsVal($NAME,'json_segments','');
+  my $decoded = decode_json($json);
+  my @array=@{$decoded};
+  my %t;
+  for (@array) { $t{$_->{'name'}} = $_->{'id'} }
+  my @ids;
+  for ( @rooms ) {push @ids, $t{$_}}
+  my %Hcmd = ( clean_segment => {segment_ids => \@ids,iterations => 1,customOrder => 'true' } );
+  $ret = $devicetopic.'/MapSegmentationCapability/clean/set '.toJSON $Hcmd{$cmd}
+  }
+
+return $ret
+}
+
+1;
+=pod
+=item summary    generic MQTT2 vacuum valetudo Device
+=item summary_DE generische MQTT2 Staubsauger gerootet mit valetudo
+=begin html
+
+Subroutines for generic MQTT2 vacuum cleaner Devices rooted with valetudo.
+<a id="MQTT2 valetudo"></a>
+<h3>MQTT2 valetudoUtils</h3>
+<ul>
+  subroutines<br>
+  <b>valetudo_w</b> return a string for dynamic selection setList<br>
+  <b>valetudo_c</b> return a complete string for setList right part of setList<br>
+  <br>
+  <a id="MQTT2_DEVICE-setList"></a>
+  <b>attr setList</b>
+  <ul>
+    <code>clean_segment:{"multiple-strict,".valetudo_w($name,"segments")} { valetudo_c($NAME,$EVENT) }</code>
+    <br><br>
+    To use dynamic setList. The $EVENT is parsed inside utils.<br>
+  </ul>
+  <br>
+</ul>
+
+=end html
+=begin html_DE
+
+Subroutines for generic MQTT2 vacuum cleaner Devices rooted with valetudo.
+<a id="MQTT2 valetudo"></a>
+<h3>MQTT2 valetudoUtils</h3>
+<ul>
+  subroutines<br>
+  <b>valetudo_w</b> return a string for dynamic selection setList<br>
+  <b>valetudo_c</b> return a complete string for setList right part of setList<br>
+  <br>
+  <a id="MQTT2_DEVICE-setList"></a>
+  <b>attr setList</b>
+  <ul>
+    <code>clean_segment:{"multiple-strict,".valetudo_w($name,"segments")} { valetudo_c($NAME,$EVENT) }</code>
+    <br><br>
+    To use dynamic setList. The $EVENT is parsed inside utils.<br>
+  </ul>
+  <br>
+</ul>
+
+
+=end html_DE
+=cut