#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc qw(leap_year Localtime Mktime);
use 5.010;

foreach my $set (
	'2010,21.06.2010',
	'2011,21.06.2011',
	'2012,21.06.2012',
	'2013,21.06.2013',
	'2014,21.06.2014',
	'2015,21.06.2015',
	'2016,21.06.2016',
	'2017,21.06.2017',
	'2018,21.06.2018',
	'2019,21.06.2019',
	'2020,20.06.2020',
) {
	my ($jahr,$erg) = split /,/,$set;
	my $test = sw($jahr);
	say "$jahr = $test ".($test eq $erg ? 'OK' : "FEHLER!!, $erg erwartet!!");
}

sub sw {
	my $fixpunkt = Mktime(2012,6,21,1,9,0);	# 21.06.2012 01:09 Uhr MESZ (ist ein Schaltjahr)
	my $diff = abs($_[0] - 2012);
	my $verschiebung = $diff * 6 * 60 * 60;	# 6 Stunden später pro Jahr
	my $bewegung = ($_[0] < 2012 ? -1 : 1);
	my $j = 2012;
	while ($j != $_[0]) {
		$j += $bewegung;
		if (leap_year($j)) {
			$verschiebung -= 18 * 60 * 60;	# 18 Stunden früher in Schaltjahren
			$verschiebung += 366 * 24 * 60 * 60 * $bewegung;
		}
		else {
			$verschiebung += 365 * 24 * 60 * 60 * $bewegung;
		}
	}
	sprintf('%02d.%02d.%04d',reverse((Localtime($fixpunkt + $verschiebung))[0..2]));
}