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

++$mon;
my $newyear = $year - 100;
$newyear = "0$newyear";
my $todaysdate = join(".", $mday, $mon, $year);

print "Today's date is: $todaysdate";