#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
$mday = 13;
$mon = 9; # 0 - 11, so this is October
$year = 1973;
# use 12pm
my $seconds = timelocal(0,0,12,$mday,$mon,$year);
print "epoch seconds: $seconds.\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($seconds);
$year += 1900;
$mon++;
printf "%02d:%02d:%02d %04d-%02d-%02d\n", ($hour,$min,$sec,$year,$mon,$mday);