diff --git a/libs/esl/tcl/pkgIndex.tcl b/libs/esl/tcl/pkgIndex.tcl
new file mode 100644
index 0000000000..437989061f
--- /dev/null
+++ b/libs/esl/tcl/pkgIndex.tcl
@@ -0,0 +1,11 @@
+# Tcl package index file, version 1.1
+# This file is generated by the "pkg_mkIndex" command
+# and sourced either when an application starts up or
+# by a "package unknown" script.  It invokes the
+# "package ifneeded" command to set up package-related
+# information so that packages will be loaded automatically
+# in response to "package require" commands.  When this
+# script is sourced, the variable $dir must contain the
+# full path name of this file's directory.
+
+package ifneeded esl 0.0 [list load [file join $dir ESL.so]]
diff --git a/libs/esl/tcl/single_command.tcl b/libs/esl/tcl/single_command.tcl
new file mode 100755
index 0000000000..0410e143c8
--- /dev/null
+++ b/libs/esl/tcl/single_command.tcl
@@ -0,0 +1,22 @@
+lappend auto_path .
+package require esl
+
+if { $argc < 1 } {
+	puts "Usage:   tclsh $argv0 command arg(s)"
+	puts "Example: tclsh $argv0 status"
+	exit
+}
+
+#
+# Open connection to FreeSWITCH ESL
+#   (FreeSWITCH must be running for this to work)
+#
+ESLconnection esl {127.0.0.1} 8021 {ClueCon}
+
+#
+# Send request               (given as args to sendRecv)
+# Get answer from FreeSWITCH (return value from sendRecv)
+# Translate reponse to text  (getBody command)
+# Print it                   (puts)
+#
+puts [ESLevent_getBody [esl sendRecv {api status}]]