#!/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]));
}