如何使用Perl获取文件大小(以兆字节为单位)？

#!/usr/bin/perl

use strict;
use warnings;

my $filename = "example.txt";
my $size_in_mb;

if (-e $filename) {
    my $size_in_bytes = -s $filename;
    $size_in_mb = $size_in_bytes / (1024 * 1024);
    printf("文件大小：%.2f MB\n", $size_in_mb);
} else {
    print "文件不存在\n";
}