Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
use strict;
...
                $year > 30 ? $year + 1900 : $year + 2000 :
                $year;
}
  2. or download this
    April 8 1984
April 8 1984
...
April 8 1984
April 8 1984
April 8 1984