aaa... i think i got the already idea... i'll answer it my self... :)

use Date::Calc qw(Add_Delta_Days);
$arch_date = "20030523";

$year = substr($arch_date,0,4);
$month = substr($arch_date,4,2);
$day = substr($arch_date,6,2);

($year,$month,$day) = Add_Delta_Days($year,$month,$day, 1);
$tomorrow = $month.".".$day.".".$year;
[download]