Select Code to Download

#!/bin/perl
use Date::Calc qw(Date_to_Time);
...
print "$avg\n";

print strftime "%H:%M:%S\n", gmtime($avg);

$count = 0;
$starthour = 17;
...

$timeavg = $time/$count;
print strftime '%H:%M:%S', gmtime($timeavg);