#cdate.pl
use strict;
use Date::Manip qw (DateCalc ParseDate UnixDate);

my $input = ParseDate shift or die 'I need a date';
my $date = DateCalc $input, "+3 days";

my @format = ('%B ', '%e, ', '%Y');
print UnixDate($date, @format)."\n";