Select Code to Download

WILYCO    CNW   437106 L 2013,07,08
WILYCO    MKT     4399 L 2013,07,03
WILYCO    MKT     4559 L 2013,07,23 2013,07,26

my @ymd1 = split ',',$dates[4] //= $prev_mth_end;
my @ymd2 = split ',',$dates[5] //= $prev_mth_end;

# work out end of current month
my ($y,$m,$d) = Today();
my $mth_end = sprintf "%04d,%02d,%02d",$y,$m,Days_in_Month($y,$m);
# ($year,$month,$day) = Add_Delta_Days($year,$month,$day,$Dd);
my $prev_mth_end = sprintf "%04d,%02d,%02d",
                   Add_Delta_Days($y,$m,1,-1);