#!/usr/bin/perl

use strict;
use POSIX qw(mktime);

my $anfang_in = '29.10.2011 08:30';
print "Anfang: '$anfang_in'\n";

print "TZ: ", (join " | ",POSIX::tzname()), "\n";
print "ENV TZ: ", $ENV{TZ}, "\n";

my ($dd, $dm, $dy, $th, $tm, $ts) = split(/[\.: ]/, $anfang_in); 

my $time = POSIX::mktime($ts, $tm, $th, $dd, $dm-1, $dy-1900);

print "\$time aus POSIX::mktime (Ver. $POSIX::VERSION): $time\n",
	  "Local: " . localtime($time) . "\n",
	  "GMT:   " . gmtime($time) . "\n",