my $before_time = time() - 183 * 24 * 60 * 60; print scalar localtime $before_time; use POSIX 'strftime'; print strftime "\n%D\n", localtime $before_time;