use DateTime;
my $tz = DateTime::TimeZone->new(qw{ name CET });
printf "%20s %s\n", $_, $tz->$_
    for qw/ is_floating is_utc has_dst_changes is_olson name category /;
__END__
         is_floating 0
              is_utc 0
     has_dst_changes 54
            is_olson 1
                name CET
            category CET