#! /usr/bin/perl

use strict;
use warnings;
use Date::Calc qw(Day_of_Year);

my $doy = Day_of_Year($year,$month,$day);
print $doy;