sub get_current_epoch {
	use Time::Local;
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$CURRENT,$isdst)=localtime(time);
	$EPOCH= timelocal($sec, $min, $hour, $mday, $mon, $year);
	return $EPOCH;
}