use warnings; use 5.016; 
use Date::Manip::Date; my$db = Date::
Manip::Date->new(undef, ["setdate" => "now,utc"]); # parse as UTC dates
while (<>) { 
    chomp; my($datestr, $count) = split /,/; 
    my$d = $db->new; 
    if (my $e = $d->parse($datestr)) {
        warn qq(cannot parse date: $datestr); 
    } else { 
        $d->convert("America/New_York");
        say $d->printf("%Y%m%d-%H:%M:%S %Z"); # print in similar format, but with timezone name
    } 
}