use Date::Set;

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

foreach (@list) {
  print "$_\n";
}
# output
20030801Z
20031001Z
20031201Z