#!/usr/bin/perl -T

use strict;
use warnings;
use File::Spec;
use File::Temp qw( tempdir );

my $pathdir = $ENV{HOME};
(-d $pathdir) and File::Spec->file_name_is_absolute($pathdir);
my $workdir = tempdir("temp.XXXXXX", DIR => "log");

##</code><code>##

$ perl -T perlmonks.pl
Error in tempdir() using log/temp.XXXXXX: Parent directory (log) does not exist at perlmonks.pl line 10.
$

##</code><code>##

$ mkdir log
$ perl -T perlmonks.pl
$