sub disp_runtime {
    my $time = ((times())[0] + (times())[1]);
    my $run_time = qq|<center><font size="1" color="red">- Runtime: $time Sec. -</font></center><br>|;
}