Perl：ファイルの更新日時を返すサブルーチン

ファイルの更新日時を返すサブルーチン

#ファイルの更新日時を返す
sub get_file_date{
my($filepath)=@_;
use Time::localtime;
my $lastmodified = (stat $filepath)[9];
my $tm=localtime($lastmodified);

#年月日時分を返す
return sprintf("%d/%02d/%02d %02d:%02d",$tm->year+1900,$tm->mon+1,$tm->mday,$tm->hour,$tm->min);

#年月日時分秒を返す
#return sprintf("%d/%02d/%02d %02d:%02d:%02d",$tm->year+1900,$tm->mon+1,$tm->mday,$tm->hour,$tm->min,$tm->sec);

}