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