Select Code to Download

use warnings; use 5.016; 
use Date::Manip::Date; my$db = Date::
...
        say $d->printf("%Y%m%d-%H:%M:%S %Z"); # print in similar forma
+t, but with timezone name
    } 
}

use warnings; use 5.016; 
use Date::Manip::Date; 
...
        say $d->printf(q(%Y%m%d-%H:%M:%S)) . $frac . $d->printf(q( %Z)
+); 
    } 
}

20150619-13:30:43.616 EDT
20150619-13:30:33.442 EDT
...
20150619-13:30:53.940 EDT
20150619-13:30:51.154 EDT
20150619-13:30:48.699 EDT