use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

# We'll start by getting the current time.
my $now = localtime;
print $now, "\n";

# You can build a time struct by providing the
# year, month, day, etc. Times are always associated
# with a Location, i.e. time zone.
my $then = Time::Piece->strptime("2009-11-17 20:34:58", "%Y-%m-%d %H:%M:%S")->add_nanoseconds(651387237);
$then = $then->gmtime; # Convert to UTC
print $then, "\n";

# You can extract the various components of the time
# value as expected.
print $then->year, "\n";
print $then->mon, "\n";
print $then->mday, "\n";
print $then->hour, "\n";
print $then->min, "\n";
print $then->sec, "\n";
print $then->nanosecond, "\n";
print $then->time_zone, "\n";

# The Monday-Sunday Weekday is also available.
print $then->day, "\n";

# These methods compare two times, testing if the
# first occurs before, after, or at the same time
# as the second, respectively.
print $then < $now ? "true\n" : "false\n";
print $then > $now ? "true\n" : "false\n";
print $then == $now ? "true\n" : "false\n";

# The subtraction returns a Time::Seconds object representing
# the interval between two times.
my $diff = $now - $then;
print $diff, "\n";

# We can compute the length of the duration in
# various units.
print $diff->hours, "\n";
print $diff->minutes, "\n";
print $diff->seconds, "\n";
print $diff->nanoseconds, "\n";

# You can use addition to advance a time by a given
# duration, or subtraction to move backwards by a duration.
print $then + $diff, "\n";
print $then - $diff, "\n";