如何从Perl中的文件中清除只读标志？

#!/usr/bin/perl

use strict;
use warnings;

# 要修改的文件名
my $filename = "example.txt";

# 获取文件的当前权限
my @stat = stat($filename);
my $mode = $stat[2];

# 清除只读标志
$mode = $mode & ~oct("0444");

# 设置新的文件权限
chmod($mode, $filename) or die "Can't change permissions: $!";

print "File permissions updated successfully.\n";