#!/usr/bin/perl
use strict;
use warnings;

my $log_dir="/root/blee";

my $result = system("mkdir -p $log_dir");
print "result: $result\n";

-d $log_dir or system("mkdir -p $log_dir") && die "couldn't make $log_dir: $!";

print "error: should have died already\n";