Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "\nNo!\n";
    print $set->contains( $set_2 ), "\n";
}

FIRST 5 ELEMENTS OF SET
2013-05-13T00:00:00
...
2013-06-10T00:00:00
2013-06-24T00:00:00
2013-07-08T00:00:00

#!/usr/bin/perl
use strict;
...
    }

}

2002-01-22T00:00:00 0 No!
2002-02-22T00:00:00 0 No!
2002-03-22T00:00:00 1 Yes!
2002-04-22T00:00:00 1 Yes!
2002-05-22T00:00:00 0 No!