$rm -rf a; mkdir -m0777 a;ls -ld a
drwxrwxrwx  2 hartmann users 48 2006-06-07 20:09 a
$rm -rf a; perl -e 'mkdir ('a', 0777)';ls -ld a
drwxr-xr-x  2 hartmann users 48 2006-06-07 20:09 a