#!/usr/bin/perl -w
use strict;

use CGI qw(-oldstyle_urls :standard);
use CGI::Carp qw(fatalsToBrowser);
use Date::Calc qw( Add_Delta_Days Decode_Date_US Today );

my $q = new CGI;

my @todays;
   @todays = Today() unless ($ARGV[0] && (@todays = Decode_Date_US( $ARGV[0] )));

my $page = "\n\n";
#my $page = "<br><br>";
# yesterday's date
my @yesterday = Add_Delta_Days( @todays, -1 );

my $forms = " %-16s %-22s %-15s %-5s %s\n";
#my $forms = " %-16s %-22s %-15s %-5s %s<br>";

my $t_string = sprintf "%04d-%02d-%02d", @todays;
my $y_string = sprintf "%04d-%02d-%02d", @yesterday;

=code
 $page .= "<table width=\"100%\" border=\"0\" bgcolor=\"#ffffff\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td width=\"60%\">Date Format Sample:</td>
                  <td width=\"40%\" align=\"left\"><b>$y_string</b></td>
                </tr>
                <tr>
                  <td width=\"100%\" colspan=\"2\">&nbsp;</td>
                </tr>
              </table>";
=cut

 $page .= sprintf $forms, "TODAY", "YESTERDAY";
 $page .= " ------------------------------------------------------------------------\n";
 $page .= " ----------$t_string  - $y_string-----------\n";


print $page;