Help for this page

Select Code to Download


  1. or download this
    my $todayDate = system qq(date)
  2. or download this
    The current date is: 11/11/2009
Enter the new date: (mm-dd-yy)  $todayDate
  3. or download this
    
my($sec,$min,$hr,$day,$month,$yr) = (localtime())[0..5];
  4. or download this
    
my($sec,$min,$hr,$day,$month,$yr) = (gmtime())[0..5];