##
my $dir= "source"; # A directory that I know exists.
warn "Using or...\n";
mkdir "$dir", 0777 or die "Could not mkdir \"$dir\": $!\n";
warn "Using ||...\n";
mkdir "$dir", 0777 || die "Could not mkdir \"$dir\": $!\n";
warn "Done.\n";
##
##
E:\etm\Work>perl -w mkdir.pl
Using or...
Could not mkdir "source": File exists
Using ||...
Done.