# wenn $dir nicht existiert, lege es ohne oder sterbe im Fehlerfall...
if ( ! -e $dir ) {
  mkdir( $dir ) or die "mkdir( $dir ) failed: $!\n";
}
# $dir existiert, ist aber kein Verzeichnis
elsif ( ! -d $dir ) {
  die "'$dir' exists but is not a directory!\n";
}