perl -E "use DateTime ;my $now = DateTime->now(time_zone => \"EST5EDT\") ; my $day = $now->local_day_of_week ; say \"day of the week: $day\" ; "
---------------------
day of the week: 6