27 :		} elsif(-d "$ARGV[0]") {
28 : 			die;
29 : print "Copying path to $Single_User_Directory - ";
30 :  			mkpath([$ARGV[0], $Single_User_Directory], 1, 0711);

##</code><code>##

27 :		} elsif(-d "$ARGV[0]") {
28 :			print "Copying path to $Single_User_Directory - " || die;
29 :			mkpath([$ARGV[0], $Single_User_Directory], 1, 0711);

##</code><code>##

mkpath([$ARGV[0], $Single_User_Directory], 1, 0711) or die;


##</code><code>##

mkpath([$ARGV[0], $Single_User_Directory], 1, 0711) or die "Unable to mkpath!!! perl reports $! ---;