Определение даты изменения файла

[MpaK999]

$lasttimemodife=&get_time_by((stat("CATALOG/FILE.EXT"))[9]);



#-----
sub get_time_by{
my $time=shift;
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($time);
$year+=1900;
$mon++;
$mon = "0$mon" if($mon<10);
$mday = "0$mday" if($mday<10);
$hour = "0$hour" if($hour<10);
$min = "0$min" if($min<10);
$sec = "0$sec" if($sec<10);
return "$mday.$mon.$year $hour:$min:$sec";
}