use Date::Manip;

$currentDate = UnixDate( "today", "%Y_%m_%d" );
$currentMinusThree = UnixDate( "3 days ago", "%Y/%m/%d" );
print join " ", $currentDate, $currentMinusThree, "\n";