use strict;
use warnings;
use Date::Manip qw(ParseDate);

our $TZ = "CET"; # I am running Windows;-)

my $date = ParseDate("Thu, 7 Aug 2008 08:35:36 +01:00");
print $date;