#!/usr/bin/env perl

use strict;
use warnings;

use Time::Piece;

my $date_format = '%Y-%m-%d';

my $hiredate = Time::Piece->strptime('2014-05-05', $date_format );
my $nowdate = Time::Piece->strptime('2016-04-15', $date_format );

my $elapsed_seconds = $nowdate - $hiredate;
my $elapsed_days = $elapsed_seconds/86400;

print "     Hire Date: $hiredate\n";
print "      Now Date: $nowdate\n";
print "  Elapsed Days: $elapsed_days\n";

exit;