Help for this page

Select Code to Download

Select or download this

{ 
   my $mn = 3;  
...
 
   print $month, "\n"; 
}

Select or download this

BEGIN {
  my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
+);
...
    $month_names[$number];
  }
}