sub get_datestamp
{
   my ($s, $m, $h, $d, $mon, $y) = localtime;
   sprintf('%02d%02d%04d', $d, $mon + 1, $y + 1900);
}

my $logfile = 'filename_' . get_datestamp() . '.log';
print "logfile='$logfile'\n";