my $end_time = 1244572189;
my ($Dd, $Dh, $Dm, $Ds) = timeDiff(localtime($end_time));


sub timeDiff(@) {
	my ($sec1, $min1, $hour1, $mday1, $month1, $year1,
		$dayofweek1, $dayofyear1, $isdst1) = @_;
	my ($sec2, $min2, $hour2, $mday2, $month2, $year2,
		$dayofweek2, $dayofyear2, $isdst2) = localtime();

	$mday1 ++;
	$mday2 ++;
	$year2 = $year2 + 1900;
	$year1 = $year1 + 1900;

	return Delta_DHMS($year2, $month2, $mday2, $hour2, $min2, $sec2,
					  $year1, $month1, $mday1, $hour1, $min1, $sec1);
}