use Set::Range;

my $r = Set::Range::Date->new(
  '[1/1/2001,12/31/2001]' => "",
  '[,1/1/2001)' => "before ",
  '(12/31/2001,]' => "after ",
);

print "Today is ", $r->range('5/6/2000'), "now";