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

##</code><code>##

use strict;
use Date::Calc qw/Today Month_to_Text/;

my ($year, $month, $day) = Today();  # work with today's date
print sprintf("%s %d, %d", Month_to_Text($month), $day, $year);