tcls
R1#tclsh R1(tcl)#foreach address { +>(tcl)#172.12.23.2 +>(tcl)#172.12.23.3 +>(tcl)#172.12.23.4 +>(tcl)#172.12.23.6 +>(tcl)#172.12.23.7 +>(tcl)#} { ping $address re 10 si 1500 +>(tcl)#}
https://routing-bits.com/2009/03/28/tcl-script-variations/