如何在Perl中以DDMMYY格式获取文件的修改日期？

#!/usr/bin/perl

use strict;
use warnings;
use Time::Local;

my $filename = "example.txt";
my @stat = stat($filename);
my $mtime = $stat[9];
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($mtime);
$year += 1900;
$mon += 1;

my $formatted_date = sprintf("%02d%02d%02d", $mday, $mon, $year % 100);

print "File modified date: $formatted_date\n";