diff --git a/modules/compiler_vm/languages/tcl.pm b/modules/compiler_vm/languages/tcl.pm
new file mode 100755
index 00000000..f3a219e8
--- /dev/null
+++ b/modules/compiler_vm/languages/tcl.pm
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+package tcl; 
+use parent '_default';
+
+sub initialize {
+  my ($self, %conf) = @_;
+
+  $self->{sourcefile}      = 'prog.tcl';
+  $self->{execfile}        = 'prog.tcl';
+  $self->{default_options} = '';
+  $self->{cmdline}         = 'tclsh $options $sourcefile';
+
+  if (length $self->{arguments}) {
+    $self->{cmdline} .= " $self->{arguments}";
+  }
+
+  $self->{cmdline_opening_comment} = "set CMDLINE {\n";
+  $self->{cmdline_closing_comment} = "}\n";
+
+  $self->{output_opening_comment} = "set OUTPUT {\n";
+  $self->{output_closing_comment} = "}\n";
+}
+
+1;