如何将文件创建时间与Perl中的当前时间进行比较？

#!/usr/bin/perl

use strict;
use warnings;
use File::stat;

# 获取文件的元数据
my $filename = "example.txt";
my $file_stat = stat($filename);

# 获取文件创建时间
my $file_ctime = $file_stat->ctime;

# 获取当前时间
my $current_time = time();

# 比较文件创建时间和当前时间
if ($file_ctime > $current_time) {
    print "文件创建时间晚于当前时间\n";
} else {
    print "文件创建时间早于当前时间\n";
}