use Time::localtime; my $tm=localtime; my ($hour,$min,$sec,$day,$month,$year)=($tm->hour,$tm->min,$tm->sec,$tm->mday, $tm->mon, $tm->year); my $input = sprintf("%d/%02d/%04d", $tm->mday, $tm->mon+1, $tm->year+1900); my @today = split /\//,$input; my $due_date = sprintf("%d/%02d/%04d", $tm->mon+1, $tm->mday+14, $tm->year+1900); my @due_date = split /\//,$due_date; $due_date = "$due_date[0]/$due_date[1]/$due_date[2]"; print $due_date;