TZ='America/New_York' perl -wE 'print +(localtime)[-1]' 1