A little improvement is to include the duration definition in the add call:

$date->add( months => 1, end_of_month => 'preserve' );
[download]

Then you don't need the use DateTime::Duration either.