#!/usr/bin/perl

use strict;
use warnings;

use Date::Manip;

my @dates = ParseRecur( '0:0:0:1:0:0:0',  # every day
                        '100 days ago',   # base before start_date
                        'last Monday',    # start_date
                        'next Friday' );  # end_date
foreach my $date ( @dates ) {
    print "$date\n";
}