#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc qw(:all);

my ($sec,$min,$hour,$day,$month,$year, $seconds);
$sec = 0;
$min = 0;
$hour = 12;
$day = 13;
$month = 10;
$year = 1973;
$seconds = 0;
# use 12pm
$seconds = Date_to_Time($year,$month,$day, $hour,$min,$sec);
print "epoch seconds: $seconds.\n";
($year,$month,$day, $hour,$min,$sec) = Time_to_Date($seconds);
printf "%02d:%02d:%02d %04d-%02d-%02d\n", ($hour,$min,$sec,$year,$month,$day);