#!/usr/bin/perl -w
use strict;
use warnings;
use Date::Calc qw (
	System_Clock
);
use Data::Dumper;

my @test = System_Clock (0);
print Dumper (\@test);
print "Doofe Sommerzeit aktiv: " . ($test[8] == 1 ? 'ja' : ($test[8] == -1 ? 'unbekannt' : 'nein')) . "\n";