@time = split(/:/, $composite_time);
print "<br>@time<br>\n";
($p3_day_hr, $p3_min, $p3_sec) = split(/:/, $composite_time);