<% #my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my ($curmon,$curyear) = (localtime(time))[4,5]; #find first month my $syear = $cgi->param('syear') || 1899+$curyear; my $smonth = $cgi->param('smonth') || $curmon+1; #find last month my $eyear = $cgi->param('eyear') || 1900+$curyear; my $emonth = $cgi->param('emonth') || $curmon+1; %>

Accounts receivable (invoices - applied credits)
Just Invoices
Accounts receivable, with deferred revenue (invoices - applied credits, with charges for annual/semi-annual/quarterly/etc. services deferred over applicable time period) (there has got to be a shorter description for this)
Cashflow (payments - refunds)

From <% my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); %> <% foreach my $mon ( 1..12 ) { %> ><%= $mon[$mon-1] %> <% } %> <% foreach my $y ( 1999 .. 2010 ) { %> ><%= $y %> <% } %> to <% foreach my $mon ( 1..12 ) { %> ><%= $mon[$mon-1] %> <% } %> <% foreach my $y ( 1999 .. 2010 ) { %> ><%= $y %> <% } %>