if (!mkdir($dir)) {
   my $err = $!;
   die "Could not create $dir: $err" unless -d $dir;
}