#!/usr/bin/perl -w

use strict;
use Date::Calc qw(Today Date_to_Text_Long Language
		  Decode_Language);

my $rcs = '$Id: date.pl,v 1.3 2001/03/19 22:45:02 gilles Exp $ ' ; # ';

my $lang = $ARGV[0] || 'en';
Language(Decode_Language($lang));
print Date_to_Text_Long(Today());