use warnings;
use strict;
use Time::Piece     qw();
use Time::Seconds   qw(ONE_WEEK);

my $t = Time::Piece->new();
my $future_date = $t + ONE_WEEK * 3;
my $converted_date = $future_date->strftime('%B %d, %Y');
print "Converted Date = $converted_date\n";

__END__

Converted Date = December 03, 2014