+
+# Does not raise errors if could not create dirs/files
+
+# Too much powerful: creates even /home, /home/users/, ...
+sub mkdirs
+{
+ my ($pathname) = @_;
+ my @dirs = split /\//,$pathname;
+ my $tmp;
+ foreach $dir (@dirs) {
+ $tmp = ((defined($tmp)) ? $tmp = $tmp."\/".$dir : "");
+ mkdir($tmp,0777);
+ }
+ rmdir($tmp);
+}