Help for this page

Select Code to Download

Select or download this

my %month_name;
@month_name{ 0 .. 11 } = qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct N
+ov Dec);
...
$year = $year + 1900;

print join " ", $day, $month_name{$month}, $year;

Select or download this
```
30 Aug 2012
```