Please use warnings;. If you had done that, you would have seen these warning messages:

Name "main::TimeInSeconds" used only once: possible typo at ./t7.pl li
+ne 11.
Use of uninitialized value in localtime at ./t7.pl line 11.
[download]

1970 is the start of the time scale in Unix or the date you get when you call localtime(0). Maybe this should be localtime(time()); in line 11 instead.