#!/bin/perl
use Date::Calc qw(Date_to_Time);
use POSIX;

$time1 = Date_to_Time(2007,8,8,23,00,0);
$time2 = Date_to_Time(2007,8,9,03,00,0);
$time3 = Date_to_Time(2007,8,10,01,00,0);

print "$time1\t$time2\t$time3\n";

$avg = sprintf "%0.0f", (($time1+$time2+$time3)/3);
print "$avg\n";

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