Select Code to Download

use strict;
use Date::Calc qw(:all);
...
    my ($day, $mon, $year) = $datestr =~ m[(\d+)/(\d+)/(\d+)]; # or Pa
+rse_Date
    return ($year, $mon, $day);
}

Daily rate for 07/01/2003 is 0.02, 20 users, every user pay $0.00
Daily rate for 09/01/2003 is 95.00, 10 users, every user pay $9.50
Daily rate for 10/01/2003 is 0.10, 20 users, every user pay $0.01
Daily rate for 12/12/2003 is 0.10, 12 users, every user pay $0.01