#!/usr/bin/perl my ($sec,$min,$hour,$mday,$mon,$year,$wday, $yday,$isdst)=localtime(time); my $yyyy_mm_dd = sprintf( "%4d-%02d-%02d", $year+1900,$mon+1,$mday );