($day, $month, $year) = (localtime)[3 .. 5]; $year += 1900;

    # Method 1:
    $day = sprintf "%02d", $day;
    $month = sprintf "%02d", $month + 1;

    # Method 2:
    $day = substr("0$day", -2);
    $month++;
    $month = substr("0$month", -2);