Select Code to Download

use Time::Local;

...
$to = timelocal(0,0,0,$to_day,$to_month,$to_year);

$days_between = ( ($to - $from) / (60 * 60 * 24) );

$from_day = 2;
$from_month = 2;
...
$to_day = 5;
$to_month = 2;
$to_year = 2002;

$from_day = 2;
$from_month = 2;
...
$to_day = 2;
$to_month = 5;
$to_year = 2002;