#!/usr/bin/perl -w
use strict;
use warnings;
use Date::Calc qw (
	System_Clock
);
use Data::Dumper;
my $zeitkorrektur_modul = 1;
eval "use Win32::UTCFileTime qw (:globally); 1;" or $zeitkorrektur_modul = 0;
#use Win32::UTCFileTime qw (:globally);
print "\$zeitkorrektur_modul = $zeitkorrektur_modul\n";
print "\$@ = $@\n";

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";
my $datei = '../pfad/datei.bak';
print "stat Testdatei (25.03.2009 18:11:30 MEZ): " . (stat($datei))[9] . ' / ' . gmtime((stat($datei))[9]) . "\n";