$ perl -e 'mkdir "foo", 02750'
$ ls -ld foo
drwxr-x--- 2 eliya eliya 4096 Apr 27 11:40 foo/