#!/usr/bin/perl

use strict;
use warnings;

my ($day, $month, $year) = (localtime)[3..5];
$year += 1900;
my $date = "$year-$month-$day";

print "$date\n";

$date = localtime;
print "$date\n";