Select Code to Download

#!/usr/bin/env perl

...
  is($t->strftime, 'Mon, 19 Jun 2017 10:07:42 PDT');
  is($t->strftime('%Y-%m-%d %H:%M:%S'), $datestr);
}

ok 1
ok 2
...
#     expected: '2017-06-19 10:07:42-0700'
1..9
# Looks like you failed 3 tests of 9.