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

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

print "time: " . time() . "\n";
print "localtime: " . localtime() . "\n";
print "gmtime: " . gmtime() . "\n";
print "stat Testdatei (25.03.2009 16:24:41 MEZ): " . gmtime((stat('../datei'))[9]) . "\n";