Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $now = Date_ConvTZ (ParseDate ('00:00:00'), 'AKST', 'EST');

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

Select or download this
```
04:00:00
```