my $mod_time = (stat($file_path))[9];
my $date = strftime "%Y_%m_%d", localtime($mod_time);
# ...
$new_file_name = "${date}_$count.jpg";