Select Code to Download

    my $oldDate = DateTime->new(month=>$monthVar,
                day=>$dayVar,
...
    $dateObject =~ s/T/ /;
    print &UnixDate($dateObject,"%m/%d/%Y %H:%M")

    $dateObject =  DateTime->now(time_zone=>'UTC');
    print $dateObject;