perlquestion McDarren This afternoon, a co-worker asked me: "how do i get the last day of the month in perl ?" After clarifying with him that he wanted the "name of the day of the last day of any given month/year", and then having a quick fossick about on CPAN, I threw the following example together using [cpan://Calendar::Functions]: <code> #!/usr/bin/perl -w use strict; use Calendar::Functions qw(month_days dotw dotw3); while (1) { print "Enter year (yyyy) and month (mm), separated by a space:"; chomp(my $input = <STDIN>); last if !$input; my ($year, $month) = split / /, $input; my $dayname = dotw(dotw3(month_days($month, $year), $month, $year)); print "The last day of $month/$year will be a $dayname\n"; } </code> I'm curious to know how others would approach this little task? (There are a few related [id://1837|Q&A's], - [id://97120|this one] in particular - but none are quite the same) Update: many thanks for all the replies. As always - TIMTOWTDI. However, on this occassion - for pure simplicity - the pony has to go to [herkum] for his [cpan://DateTime] [id://556231|solution] :) Thanks, Darren :)