perl - ファイル属性が機能しない

Question

読み取り専用のファイルを作成し、ファイル属性を使用して読み取りおよび書き込み可能かどうかを確認しようとしていますが、常に読み取りおよび書き込み可能であると返されます。

私は何を間違っていますか？

  use strict;
  use Fcntl;
  sysopen(DATA, "file.txt", O_CREAT | O_RDONLY );
  print DATA "Bob\n";
  close (DATA); 

  my $file='file.txt';
  my (@description,$size);
  if (-e $file)
   {
    push @description, 'readable' if (-r _);
    push @description, 'writable' if (-w _);
    push @description, (($size = -s _)) ? "$size bytes" : 'empty';
    print "$file is ", join(', ',@description),"\n";
    } 

ここに何が印刷されていますか：

誰かが私を助けてくれますか？