Neat. You can get rid of the join by using a .=.

sub my_mkdir {
    my ($path, $perms) = @_;

    my $dir = '.';
    for ( split /\//, $path ) {
        mkdir $dir .= "/$_", $perms;        
    }
}
[download]