#use strict;
use warnings;
use Time::Local;
my @day_Of_Month={5,16,20};
#i want to use this array one by one to do unix time stamp

use Time::Piece;
my $t = localtime($^T);
print 'entire time:  ', $t;
print "\n";
print 'Month: ', $t->month;
print "\n";
print 'Year:  ', $t->year;
print "\n";
$updatetime = timegm(59,59,23,$dayOfMonth,$month-1,$year);
print $updatetime;