当输入文件为空时，用于向文件添加头的Perl简单一行程序不起作用

#!/usr/bin/perl

use strict;
use warnings;

my $filename = "example.txt";
my $header = "This is the header";

# 判断文件是否为空
if (-z $filename) {
    print "文件为空，无法添加头\n";
} else {
    # 打开文件进行添加头操作
    open(my $fh, "+<", $filename) or die "无法打开文件: $!";
    
    # 读取文件内容
    my @lines = <$fh>;
    
    # 将头插入到文件开头
    unshift @lines, $header."\n";
    
    # 将文件指针移到文件开头
    seek $fh, 0, 0;
    
    # 清空文件内容
    truncate $fh, 0;
    
    # 写入修改后的内容
    print $fh @lines;
    
    # 关闭文件
    close $fh;
    
    print "头已成功添加到文件\n";
}