Date::Calcモジュールで経過日時をもとめる。

簡単なプログラムにものすごく時間がかかってしまいました。

さて、任意の日時に経過日数を与え、その日付を求める方法。
使用するモジュールはDate::Calcです。

use Date::Calc;
use strct;

#現在の日時を取得
my ( $y, $m , $d ) = Date::Calc::Today;
print "$y-$m-$d";

#10日後の日時を求める
my ( $new_y , $new_m , $new_d ) = Date::Calc::Add_Delta_YMDHMS(
$y , $m , $d , 0 , 0, 0 , #経過前の日時
0 , 0 , 10 , 0 , 0, 0 ); #経過分の日時
print "$new_y-$new_m-$new_d";

01-10-12
01-10-22

年や月をまたぐ場合に有効です。
ちなみに、引数に改行を入れた場合正常に動作しませんでした。注意！