Select Code to Download

VEHICLES/CARS/BIKES

$dir = "VEHICLES";
@files = ('CARS', 'BIKES');
...
  chdir $file or die "(loop) can't chdir to $file: '$!'";
  chdir $dir or die "(loop) can't chdir to $dir: '$!'";
}

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

$dir = "VEHICLES";
@files = ('CARS', 'BIKES');
...

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

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

$dir = "VEHICLES";
@files = ('CARS', 'BIKES');
...
      mkdir $file or die "(loop) can't mkdir $file: '$!'";
  }
}

VEHICLES
VEHICLES/BIKES
VEHICLES/CARS