#!/usr/bin/perl
use Time::localtime;

$log_name=sprintf("my_log.%04d%02d%02d%02d%02d%02d.log",
                  localtime->year()+1900,
                  localtime->mon()+1,localtime->mday(),
                  localtime->hour(),
                  localtime->min(),localtime->sec()); 

print $log_name . "\n";