If we get rid of the clunky way too long variable names and use simple $m and $y, we can have:

sub get_days{$m-2?30+($m*3%7<4):28+!($y%4||$y%400*!($y%100))}
[download]

And if we ask really nicely, bart may write it in 68k assembler for us :)