Select Code to Download

</#!/usr/bin/perl -w
...
my $set4 = DateTime::Set->from_datetimes( dates => [ $date3 ] );
print $biweekly->contains( $set4 ), "\n"; # gives 1 wrong!
print $set4->contains( $biweekly ), "\n"; # gives a warning