mkdir 'XXX';
open my $FH, '>', 'XXX/1';
close $FH; 
mkdir "XXX" or warn $!;
open my $FH, '<', 'XXX/1' or die $!;
close $FH;