#!/usr/bin/perl

use Date::Calc qw(:all)

$days = Date_to_Days($year,$month,$day);
  ($year,$month,$day) = Add_Delta_Days(1,1,1, $days - 1);

print "$days\n";