date conversion question

[pho01]

when you do 'date +%j' it gives you today's year day in number. How do you convert a given date (for example 12/13/2004) to year day in number like that?

or if not in shell, how would you do it in perl?
thanks!