
   my ($sec, $min, $hr, $mday, $mon, $yr,
       $wday, $yday, $dst) = localtime();

   printf "The year is actually %4d.\n", $yr+1900;

   printf "It is now %d/%d/%d %d:%02d:%02d\n",
      $mday, $mon+1, $yr+1900, $hr, $min, $sec;



