my ($seconds, $minutes, $hours, $day, $month, $year) = (localtime($file))[0..5];
$month++; # starts counting with 0
$year += 1900; # years since 1900