#!/usr/bin/perl -w

@queues = ("mess", "info", "intd", "local", "remote", "todo", "bounce");

if(!defined $ARGV[0]) {
    print "You must specify a directory name for the new directory";
}

mkdir ($ARGV[0]) || die "Couldn't mkdir()\n";
chdir ($ARGV[0]);

foreach $queue (@queues) {
    mkdir($queue);
    chdir($queue);
    foreach $dir (0..22) {
        mkdir($dir);
    }
    chdir("..");
}