use DateTime qw( );
my $dt = DateTime->now( time_zone => 'Pacific/Honolulu' );
my $dateadded_time = $dt->strftime("%k:%M");
my $dateadded_date = $dt->strftime("%b %e, %Y");