【Perl 】初心者コーナーPart5

ちょっと教えてください。

時間を使いたいんです。
例えば
$date_now　;#現在の日時
$date_soon ;#現在から１ヵ月後

とした場合、$date_nowの方は
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
で取れますよね？
一ヵ月後となると。。。難しいですか？

今現在はPostgreSQLに一回$date_nowを落としてから１ヶ月足して
それを$date_soonに入れなおしてますがあまり効率的ではないような
気がするんで。。。