#!/usr/bin/perl
use Date::Calc qw/Delta_Days Today/;
print Delta_Days(2004,2,9, Today() );