sub getNextDate { 

    $inputDate = @_[1];    
    if ($inputDate != "") {    
        ($year,$mon,$day) = split("-",$inputDate);    
        $mon = $mon - 1;    
        $dtToday = timelocal(0,0,0,$day,$mon,$year);    
    } else {    
        $dtToday = time;    
    }    
    $nextDate = $dtToday + 86400;         
                                                                                                                                 
        $nextMonth = ( localtime( $nextDate)->mon ) + 1;             
         $nextYear = ( localtime( $nextDate)->year ) + 1900;                  
    $nextDay = localtime( $nextDate)->mday;             

    if($nextMonth <=  9) {                                      
            $nextMonth = '0'.$nextMonth;               
    }

    if($nextDay <=  9) {
            $nextDay = '0'.$nextDay ;
    }

return $nextYear . "-" . $nextMonth . "-" . $nextDay;
}

##</code><code>##

startDate=2013-02-25
perl -MUtil -e 'print Util::getNextDate("$startDate");' > $result
echo $result

##</code><code>##

perl -MUtil -e 'print Util::getNextDate("2013-02-25");'