Look into Date::Manip. I think you will need something like:

    use Date::Manip;

    my $err;

    my $date=&DateCalc("today","- 14 days",\$err);

    #   OUTPUTS (at time of testing):
    #
    #   2002052408:15:05
[download]

- wil