my $subdir = 'subfolder';
if ( ! mkdir( $subdir ) && ! -d $subdir ) {
    die "Can't create '$subdir': $!";
}