>>146
タイムゾーン関係の設定ファイルがあるがlibcのバージョンや
OSの作法によっていろいろ違いがあり、ポータブルなのを自前
で書くのはたいへんなのでDateTime::TimeZoneモジュールを使
うのが楽だろう。

use DateTime::TimeZone;
use DateTime;

my $tz = DateTime::TimeZone->new(name => 'local');
print $tz->name, "\n";

my $dt = DateTime->now;
print $tz->short_name_for_datetime($dt), "\n";