Select Code to Download

use strict;
use warnings;

...

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