my $error;
mkdir $path or $error = $!;
unless (-d $path) {
    die "Cannot create directory '$path': $error";
}