A small Perl module that will take a date (specified in various ways) and tell you what quarter it's in