#!/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);