#!/usr/bin/perl
use Date::Calc qw( Day_of_Year );
print 'The day of year is ', Day_of_Year(2009, 5, 20), "\n";