sub mkpath()
{
  my ($path,$rights)=@_;
  my @dirs=split('/',$path);
  for( my $i=0; $i<@dirs; $i++ )
  {
   my $d_now.=join('/', @dirs[0..$i]);
   mkir($d_now,$rights);
  }
}