$ perl -E '
    my ($d, $m, $y) = (localtime)[3..5];
    say  $ARGV[0], "_", $d, $m+1, $y+1900, ".log";
' filename
filename_17122019.log