Ok... here is how I ended up doing it... tell me if this looks terrible:

my $month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[(local
+time)[4]-1];
print "$month\n";
[download]

--Neb