my $dir = 'IO';
mkdir $dir or die "Can't create directory: $!" unless -d $dir;