Hi Joyeux,
If I get you right, you probabily want to display your current date, in some format. If so, you can do like so:

use warnings;
use strict;

my ( $day, $month, $year ) = (localtime)[ 3 .. 5 ];
print sprintf "%s : %s : %s\n", $day, $month + 1, $year + 1900, $/;

#OR

use POSIX qw(strftime);
print strftime "%d - %m - %Y\n", localtime;

#OR

use Time::localtime;

my $tm    = localtime;
my $day   = $tm->mday();
my $month = $tm->mon() + 1;
my $year  = $tm->year() + 1900;

print sprintf "%s \\ %s \\ %s", $day, $month, $year;
[download]

Well the current local time is returned by localtime

Formatting that time can be done in many different ways in Perl. The quickest way is probably to use the Posix strftime function.

Putting the two together gives:

use POSIX;

print strftime( "%d/%y/%Y", localtime());
[download]