#!/usr/bin/perl -w

use strict;
use POSIX;

my $date = POSIX::strftime('%Y-%m-%d', localtime);