The localtime function gets stored in a list
The 4th element in the list is month 0 for jan and 11 for dec
The 3rd is the day of the month
The 5th is the number of years since 1900.
in this code I add one to the month element and 1900 to the year element this gets current year in YYYY format and gets the month to the correct position.
I then concatenate the variables together
Hope this helps
#!/usr/bin/perl
# file name here
use warnings;
use strict;
my @timelist = localtime;
$timelist[4] = $timelist[4]+1;
$timelist[5] = $timelist[5]+1900;
my $target = $timelist[4]."-".$timelist[3]."-".$timelist[5];
print $target, "\n";