use Date::Set;

$a = Date::Set->event();
$a->event( rule => 'FREQ=MONTHLY;INTERVAL=2;' );
$a->event( start => '20030801',
           end   => '20031201' );
@list = $a->list;

foreach (@list) {
  print "$_\n";
}