chdir $file;
  chdir $dir;
##</code><code>##

#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 3;

# Do all this in /tmp because we don't want permission trouble or to
# pollute real dirs while testing
chdir '/tmp';
my $dir = 'VEHICLES';
my @files = qw/CARS BIKES/;

mkdir $dir;
ok (-d $dir);

chdir $dir;

foreach my $subdir (@files) {
	mkdir $subdir;
	ok (-d $subdir);
}