Ping using tcl in GNS3

It's always wise to use tcl script to ping all the interfaces (particularly if there are many) in Router or simulator like GNS3.
Sample script.
Router#tclsh
foreach address {
1.1.1.1
2.2.2.2
3.3.3.3
4.4.4.4
5.5.5.5 } {ping $address}