#!/usr/bin/perl
 
use strict;
use warnings;
use Date::Calc qw/Delta_Days/;
 
my @first = (2001, 9, 12);
my @second = (2004, 3, 11);
my $dd = Delta_Days( @first, @second );
 
print "Difference in days: $dd\n";