Help for this page

Select Code to Download


  1. or download this
    use POSIX       qw( strftime );
use Time::Local qw( timelocal );
...

print("Expecting: 2008-03-05\n");
print("Received:  $date\n");
  2. or download this
    Expecting: 2008-03-05
Received:  2008-03-04