mkdir ("$user_name",0777) || die "cannot mkdir : $!";


##</code><code>##

mkdir ($user_name, 0777) || warn "directory $! already exists";