#!/usr/bin/perl
#
#
# Problem with Date::Manip
#
use strict;
use warnings;
use Date::Manip;
my $Date;

sub printit{
 	my $Datea = &ParseDate($Date);
	my $Dateb = " english dates Ok";
	if(!$Datea){		
		&Date_Init("Language=French");
		$Dateb = &ParseDate($Date);
		&Date_Init("Language=English");
		$Datea = "Try french?";
		if(!$Dateb) { $Dateb = "French fails too!";}
	}
	print "== $Datea $Dateb\n";
}

$Date = 'Tue Sep 27 12:46:10 CEST 2005';
printit();
$Date = 'lun oct 17 15:59:40 CEST 2005';
printit();
$Date = 'mer sep 28 09:41:54 CEST 2005';
printit();