my $date_as_string = localtime(time() + $days * 24*60*60 );
print $date_as_string;
[download]

use Date::Calc;
[download]

use Date::Manip;
[download]

Abigail

Yeah. What Abigail said. Doing simple math on dates works ok most of the time... until the day comes when "the next day at this time" isn't 24 hours away (think daylight savings time.) That sort of thing will bite you one day... much better to rely on a module to remember that stuff for you.

Gary Blackburn
Trained Killer

use DateTime;
sub dateahead {
  my ($daystoadd) = @_;
  my $dt = DateTime->now()->add( days => $daystoadd);
  # What form do you want the result returned in?
  return $dt->date(); # This, perhaps?
  return $dt; # Or a DateTime object maybe?
}
[download]

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]