Help for this page
my $newfilename = "$filenamearray[0]" . "-" . $hr . ":" . $min . ":" . + $sec . "\." . $filenamearray[1];
my $newfilename = "$filenamearray[0]-$hr:$min:$sec.$filenamearray[1]";
my $newfilename = sprintf "%s-%02d:%02d:%02d.%s", $filenamearray[0], $ +hr,$min,$sec, $filenamearray[1];