sub Calc_Date_Vars {

use DateTime qw( );
$dt = DateTime->now( time_zone => 'Pacific/Honolulu' );
$dateadded_time = $dt->strftime("%l:%M %P");
$dateadded_date = $dt->strftime("%b %e, %Y");
$ymd    = $dt->ymd;
$dateadded2 = $ymd;
$hour = $dt->hour_1();
$min = $dt->min();
$hourmin = "$hour:$min";
}