sub formatTime {
    my ($date, $in_format, $out_format) = @_;
    $t = Time::Piece->strptime($date,$in_format);
    return $t->strftime($out_format);
}