#!/usr/bin/perl

use strict;
use warnings;

unless (-d '/some/user/directory') {
    mkdir '/some/user/directory';
} else {
   print "Directory exists", "\n";
}