my $mask = umask();
umask(0775)
