#!/usr/bin/perl -w

use strict;
use Date::Format;

my $iso_date = time2str '%Y-%m-%d', time;