Select Code to Download

#!/usr/bin/env perl

...
print "     datetime: ", $obj->datetime, "\n";
print "     tzoffset: ", $obj->tzoffset, "\n";
print "     hour: ", $obj->hour, "\n";

Original date string: 2017-06-19 10:07:42-0700

...
     datetime: 2017-06-19T17:07:42
     tzoffset: 0
     hour: 17