#!/usr/bin/perl -w
# Author: Brian Alliet
# Class: System Administration 1 (421)
# Usage: ./makefiles.pl
# Creates several subdirectories each containig several files with various
# permissions.

use strict;
my @perms = qw(777 755 744 700 644 600 444 400 111 100);
foreach my $d (@perms) {
	mkdir($d) unless(-d $d);
	foreach my $f (@perms) {
		open(FH,">$d/$f") && close FH or die "$!";
		chmod oct($f), "$d/$f" or die "$!";
	}
	chmod oct($d),$d or die "$!"
}