in reply to Re: Random day of a year
in thread Random day of a year

And if we don't care about last day in leap year (imho the result is random enough), it can be true one-liner: 
perl -MDateTime -le 'print DateTime -> new(year=>$ARGV[0]) -> add(days
+=>rand(365)) -> ymd' 2013

[download]

In Section Cool Uses for Perl