Help for this page

Select Code to Download


  1. or download this
    if Today eq 5days_lest_then_end_of_month;
do stuff
else
skipp
  2. or download this
    #!/usr/local/bin/perl -w

...
print "date = $date\n";
print "today = @today\n";
  3. or download this
    date = Fri 23-Nov-2001
today = 2001 11 21