diff --git a/wol.tcl b/wol.tcl
new file mode 100644
index 0000000..dd7c899
--- /dev/null
+++ b/wol.tcl
@@ -0,0 +1,30 @@
+
+## This script sends a WoL packet to destination MAC address
+## how to use:
+##  tclsh flash:wol.tcl 0014D13F25F0
+##
+
+set macAddr [lindex $argv 0]
+set broadcastAddr 255.255.255.255
+
+proc WakeOnLan { } {
+     global macAddr
+     global broadcastAddr
+     set net [binary format H* [join [split $macAddr -:] ""]]
+     set pkt [binary format c* {0xff 0xff 0xff 0xff 0xff 0xff}]
+
+     for {set i 0} {$i < 16} {incr i} {
+        append pkt $net
+     }
+
+     # Open UDP and Send the Magic Paket.
+     set udpSock [udp_open]
+     fconfigure $udpSock -translation binary \
+          -remote [list $broadcastAddr 4580] \
+          -broadcast 1
+     puts $udpSock $pkt
+     flush $udpSock;
+     close $udpSock
+}
+
+WakeOnLan