diff --git a/modules/compiler_vm/compiler_vm_client.pl b/modules/compiler_vm/compiler_vm_client.pl
index e657cc85..79a0ec70 100755
--- a/modules/compiler_vm/compiler_vm_client.pl
+++ b/modules/compiler_vm/compiler_vm_client.pl
@@ -33,6 +33,11 @@ my $nick    = shift @ARGV // (print "Missing nick argument.\n" and die);
 my $channel = shift @ARGV // (print "Missing channel argument.\n" and die);
 my $code    = join(' ', @ARGV);
 
+if (not length $code) {
+  print "$nick: Usage: cc [-paste] [-nomain] [-lang=<language>] [-info] [language options] <code> [-input=<stdin input>]\n";
+  exit;
+}
+
 my $lang = $language->new(nick => $nick, channel => $channel, lang => $language, code => $code);
 
 $lang->process_interactive_edit;