#!/usr/bin/perl
use strict;
use warnings;
use Date::Simple;

my $date1 = Date::Simple->new("2004-01-14");
my $date2 = Date::Simple->new("2004-01-17");

print "Days difference is: ", $date2 - $date1, "\n";