$mtime = (stat "$dir")[9]; my @t = localtime $mtime; $date = sprintf "%02u-%02u-%02u %02u:%02u", $t[5] % 100, $t[4] + 1 ,$t[3], $t[2], $t[1];
