#!/usr/bin/perl -w

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

my $rcs = '$Id: date.pl,v 1.4 2002/03/16 15:02:07 gilles Exp $ ' ; # ';

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

my ($year,$month,$day, $hour,$min,$sec, $doy,$dow,$dst) =
  System_Clock();

# Date_to_Text_Long(Today()) is good too.

print 
  join(" ",
  Day_of_Week_to_Text($dow),
  $day,
  Month_to_Text($month),
  $year)  ;