VEHICLES/CARS/BIKES

##</code><code>##

$dir = "VEHICLES";
@files = ('CARS', 'BIKES');
mkdir ($dir) or die "can't mkdir $dir: $!";
chdir ($dir) or die "can't chdir to $dir: '$!'";
foreach $file(@files)
{

  mkdir $file or die "(loop) can't mkdir $file: '$!'";
  chdir $file or die "(loop) can't chdir to $file: '$!'";
  chdir $dir or die "(loop) can't chdir to $dir: '$!'";
}

##</code><code>##

(loop) can't chdir to VEHICLES: 'No such file or directory' at try.pl line 10.

##</code><code>##

$dir = "VEHICLES";
@files = ('CARS', 'BIKES');
mkdir ($dir) or die "can't mkdir $dir: $!";
chdir ($dir) or die "can't chdir to $dir: '$!'";
foreach $file(@files)
{

  mkdir $file or die "(loop) can't mkdir $file: '$!'";
} 

##</code><code>##

can't mkdir VEHICLES: File exists at try.pl line 3.

##</code><code>##

$dir = "VEHICLES";
@files = ('CARS', 'BIKES');
if(not -d $dir)
{
    mkdir ($dir) or die "can't mkdir $dir: $!";
}
chdir ($dir) or die "can't chdir to $dir: '$!'";
foreach $file(@files)
{
  if (not -d $file)
  {
      mkdir $file or die "(loop) can't mkdir $file: '$!'";
  }
}

##</code><code>##

VEHICLES
VEHICLES/BIKES
VEHICLES/CARS