Here is the deal, I am passing a parameter to this program form a form i.e., FY01, CY01 etc. (where FY= fiscal year and CY = calendar year). The problem is that when I try to get the program to get me output for a specific date range, it's acting weird and the output is not falling in the given range. The second question I had was that if I select "calendar year" in the form I don't want it to still rearrange in "fiscal year" format (e.g., q1, q2, …). This is running with "w" on and i can't use strict.

#TEST By FY or CY###

my $go = param('go');
if ($go eq "FY02") {
        $sdate = "2001/06/01" && $edate = "2002/05/31";
} elsif ($go eq "CY02") {
        $sdate = "2002/01/01" && $edate = "2002/12/31";
} elsif ($go eq "FY01") {
        $sdate = "2000/06/01" && $edate = "2001/05/31";
} elsif ($go eq "CY01") {
        $sdate = "2001/01/01" && $edate = "2001/12/31";
} elsif ($go eq "FY00") {
        $sdate = "1999/06/01" && $edate = "2000/05/31";
} else {
        $sdate = "2000/01/01" && $edate = "2000/12/31";
}

@ofld = ("?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "
+?", "?", "?", "?", "?");
foreach $line (@loads) {
        @flds = split (/!/, $line, 17);
        next if $sdate lt $flds[$DTE] && $flds[$DTE] lt $edate;       
+ #date range
        foreach $field (@flds) {
                $field =~ s/\s+$//;
                if ($field =~ m!(....)/(..)/(..)!) {                #r
+eorg. date style
                        $field = "$2/$3/$1";
                }
        }
        $flds[1] = $syst{$flds[1]} || $flds[1];
        {
                my ($m, $d, $y) = split (m!/!, $flds[$DTE]);          
+  #take date and strip "/"
                my $fq = int (($m + 6) % 12 / 3) % 4 + 1;            #
+get fiscal quarter
                my $fy = $y + ($m > 5 ? 1 : 0);                    #ge
+t fiscal year
                $flds[$VIR] = sprintf "FY %04d Quarter %d", $fy, $fq; 
+   #assign to virtual field
        }
     &test_break ();
        print "<tr valign=\"top\">\n";
        foreach $spec (@$OUTPUT) {
        |
        |
        |
    }
}
[download]