Select Code to Download

my $date = localtime;
my @fields = split /\s+/, $date;
my $year = pop @fields;
my $month = $fields[1];
my $day = $fields[2];