use POSIX( 'strftime' ); use constant LF => "＼n"; $ENV{TZ} = 'JST-9'; print strftime( '%z', localtime ), LF; # タイムゾーン print strftime( '%Y-%m-%d %H:%M:%S', localtime ), LF;