--- /dev/null
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my $name = shift;
+
+unless ($name) {
+ die <<USAGE;
+Usage: project-create-module-drupal NAME
+USAGE
+}
+
+mkdir $name;
+open (INFO, "> $name/$name.info");
+open (MODULE, "> $name/$name.module");
+open (README, "> $name/README");
+
+print INFO "name = " . ucfirst($name) . "
+description = The Great new " . ucfirst($name) . " module!
+version = 0.1
+core = 7.x
+";
+
+print MODULE "<?php \n";
+
+print README "Installation
+============
+
+";
+
+close (INFO);
+close (MODULE);
+close (README);