$ perl -wMstrict -MDateTime -le 'print DateTime->now(time_zone=>$_)->strftime("%Z %z") for qw# America/Havana Asia/Shanghai America/Chicago #'
CST -0500
CST +0800
CST -0600