use strict;
use warnings;
use Date::Manip;

Date_Init ("TZ=PST"); # May not be needed and timezone irrelevant
my $now = Date_ConvTZ (ParseDate ('00:00:00'), 'AKST', 'EST');

print UnixDate ($now, '%H:%M:%S');