RainMan:
зачем тада создавать маску если уже указали пермишн для файла?
#umask022
Вариант 1#more t.pl#!/usr/local/bin/perl
use strict;
use Fcntl;
umask 011;
sysopen (TEXT, \'test.txt\', O_CREAT, 0666) || die "$!\\n";
#./t.pl#ls -la-rw-rw-rw- 1 root root 0 Jun 23 13:50 test.txt
#rm test.txtВариант 2#more t.pl#!/usr/local/bin/perl
use strict;
use Fcntl;
sysopen (TEXT, \'test.txt\', O_CREAT, 0666) || die "$!\\n";
#./t.pl#ls -la-rw-r--r-- 1 root root 0 Jun 23 13:50 test.txt
#rm test.txtВариант 3#more t.pl#!/usr/local/bin/perl
use strict;
use Fcntl;
umask 011;
sysopen (TEXT, \'test.txt\', O_CREAT, 0777) || die "$!\\n";
#./t.pl#ls -la-rwxrw-rw- 1 root root 0 Jun 23 13:50 test.txt
#rm test.txt#rm test.txtВариант 4#more t.pl#!/usr/local/bin/perl
use strict;
use Fcntl;
umask 011;
sysopen (TEXT, \'test.txt\', O_CREAT) || die "$!\\n";
#./t.pl#ls -la-rw-rw-rw- 1 root root 0 Jun 23 13:50 test.txt
#rm test.txtВариант 5#more t.pl#!/usr/local/bin/perl
use strict;
use Fcntl;
sysopen (TEXT, \'test.txt\', O_CREAT) || die "$!\\n";
#./t.pl#ls -la-rw-r--r-- 1 root root 0 Jun 23 13:50 test.txt
#rm test.txt маска для того и служит чтоб если ничего не указывать то создается файл с пермишинами по умолчанию - как в маске!
Это верно.