print easter_date(2005);

sub easter_date {
		my $Year = shift;
		 $G = $Year % 19; 
         $C = int($Year / 100); 
         $H = int($C - ($C / 4) - ((8*$C+13) / 25) + 19*$G + 15) % 30; 
         $I = $H - int($H / 28)*(1 - int($H / 28)*int(29 / ($H + 1))*(int(21 - $G) / 11)); 
         $J = ($Year + int($Year/4) + $I + 2 - $C + int($C/4)) % 7; 
         $L = $I - $J; 
         $m = 3 + int(($L + 40) / 44); 
         $d = $L + 28 - 31 * (int($m / 4)); 
         $y = $Year; 
         return sprintf("%04d-%02d-%02d", $y, $m, $d); 
}