Re: getting $date

#!/usr/bin/perl

use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

$year += 1900;
$mon++;

my $date = "$mday/$mon/$year";

print $date, "\n";
.