sub my_mkdir {
	my $path = shift;
	my $perms = shift;
	
	my @parts = split /\//, $path;
	for my $num (1..$#parts) {
		my $check = join('/', @parts[0..$num]);
		unless (-d $check) {
			mkdir( $check, $perms );
		}
	}
}