Help for this page

Select Code to Download


  1. or download this
    my ($mon, $year) = (localtime())[4, 5];
  2. or download this
    my $month = (qw/January February March April May June July August Sept
+ember October November December/)[(localtime())[4]];
  3. or download this
    $month_year= (qw/January February March April May June July August Sep
+tember October November December/)[(localtime())[4]] . (1900 + (local
+time())[5]);