% my $user = getotaker; $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/; my $beginning = $1; $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/; my $ending = $1; print header('Tax Report Results'); open (REPORT, "freeside-tax-report -v -s $beginning -f $ending $user |"); print '
'; while('; print ') { print $_; } print '