$ perl -l
use strict;
use warnings;

use Date::Manip;

my $obj = new Date::Manip::Recur;
my $err = $obj->parse(
  qw(1:2:3:4*12:30:00
    2000010500:00:00
    2000010100:00:00
    2003010100:00:00
    )
);
die $obj->err() if $err;

my @dates = $obj->dates();
foreach my $date (@dates) {
  print $date->value;
}

__END__
200015123000
2001330123000
2002624123000
$