- my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
- foreach(@_ ? @_ : reverse @terms) {
+ #my @terms = reverse grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
+ my @terms = ();
+ my $year = Date::Calc->localtime->year;
+ for(my $y=$year-4;$y<=$year;$y++) { push @terms, ($y.2,$y.3,$y.4,$y.1); }
+ foreach(@_ ? @_ : @terms) {