diff --git a/templates/pgm_template.tcl b/templates/pgm_template.tcl
new file mode 100755
index 0000000..3e67794
--- /dev/null
+++ b/templates/pgm_template.tcl
@@ -0,0 +1,59 @@
+#!/bin/bash
+#\
+exec wish "$0" -- ${1+"$@"}
+
+source [exec bash -c "which source.tcl"]
+my_source [list print.tcl opt.tcl]
+
+longoptions test_mode:=0 quiet:=0
+pos_parms
+
+
+# Create help dictionary for call to gen_print_help.
+set help_dict [dict create\
+  ${program_name} [list "${program_name} will..."]\
+]
+
+
+proc help {} {
+
+  gen_print_help
+
+}
+
+
+proc exit_proc { {ret_code 0} } {
+
+  # Execute whenever the program ends normally or with the signals that we
+  # catch (i.e. TERM, INT).
+
+  dprint_executing
+  dprint_var ret_code
+
+  # Your code here.
+
+  qprint_pgm_footer
+
+  exit $ret_code
+
+}
+
+
+proc validate_parms {} {
+
+  trap { exit_proc } [list SIGTERM SIGINT]
+
+  # Your code here.
+
+}
+
+
+# Main
+
+  gen_get_options $argv
+
+  validate_parms
+
+  qprint_pgm_header
+
+  exit_proc